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Hvordan  laver  jeg  mit  eget  spil,  er 
et  at  de  spørgsmål,  vi  oftest  får 
stillet  her  på  redaktionen. 

Mange  nybagte  computerejere 
har  nemlig  måttet  sande,  at  ned¬ 
skydning  af  flyvende  tallerkener 
og  spøgelsesfortærende  oste 
kræver  en  hel  del  viden  om,  hvor¬ 
dan  skærmen  fungerer,  hvordan 
joysticket  styres  osv.  ’ 5 SOFT 
Special’  ’  har  bedt  en  virkelig  eks¬ 
pert  på  området  give  gode  råd  til 
spilkonstruktører.  Det  er  forfatte¬ 
ren  Erwin  Neutsky-Wulff ,  som  er 
kendt  for  sine  bøger  til  Sinclair, 
Commodore  og  Texas. 


Et  par  måneder  i  selskab  med 
din  nye  computer  bringer  dig 
helt  sikkert  et  stort  skridt  vide¬ 
re  i  spørgsmålet.  Du  tår  tiere 
erfaringer,  lærer  maskinens 
særkender  og  du  finder  snart 
ud  af,  hvordan  en  lysende 
prik  på  skærmen  kan  for¬ 
vandles  til  et  skrækindjagen¬ 
de  uhyre . 

I  denne  artikel  vil  jeg  give  dig 
en  række  tips  til  opbygning 
af  spilprogrammer.  Vi  viser  i 
starten  en  række  simple  spil, 
der  kun  bruger  skærmen  til 
tekst.  De  har  den  fordel,  at  de 
næsten  uden  ændringer  kan 
køre  på  forskellige  computer¬ 
typer. 

Jeg  har  lavet  programmerne 
på  en  Commodore  64  og  en 
VIC-20.  Har  du  en  Texas  TI-99/ 
4A,  vil  den  ikke  kunne  tage 
"flere  sætninger"  i  en  linie, 
som  i  vores  listning  er  adskilt 
ved  kolon.  På  en  Spectmm 
og  en  ZX-8 1  vil  ordren  RND(  1 ) 
slet  og  ret  hedde  RND. 


På  andre  maskiner  vil  der 
være  tilsvarende  små  afvi¬ 
gelser,  men  alle,  der  kender 
lidt  til  sin  computer,  kender 
sikkert  til  disse  særpræg.  Det 
er  lørst,  når  vi  går  over  til  de 
store  skærmprogrammer,  at 
oversættelser  bliver  meget, 
meget  svære.  Men,  alligevel 
vi  tager  nogle  enkle  skærm¬ 
spil  med  undervejs  i  artiklen. 

Små  gaver 
fra  computeren 

En  gave  fra  oven  til  spillema¬ 
geren  er  RND(1).  Skriver  vi 
PRINT  RND(1),  får  vi  som  be¬ 
kendt  et  tal  mellem  0  og  1 
med  en  masse  decimaler.  I 
Spectrum  skrives  RND*  1 . 
Mere  brugbart  bliver  det  med 
INT.  hvor  f.eks.  PRINT  INT(RND 
(1)*6)+ 1  tilfredsstillende  simu¬ 
lerer  en  terning.  Vi  kan  nu 
prøve  at  gætte  maskinens  tal 
eller  eventuelt  spille  terning 
mod  den. 

Et  rouletteprogram  kan  tildele 
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gevinst,  når  vores  tal  kommer 
ud,  og  vi  kan  prøve  at  spræn¬ 
ge  en  bank.  Eller  vi  kan 
handle  med  aktier,  hvis  kur¬ 
ser  stiger  og  lalder. 

Et  er  imidlertid  at  tå  ideen  til  et 
sådant  spil,  noget  andet  rent 
taktisk  at  tremstille  det.  Ne¬ 
denstående  indeholder  de 
almindeligste  komponenter. 

Ved  at  analysere  det  skulle  vi 
tå  en  anelse  om,  hvordan  så¬ 
dan  noget  tungerer. 

1  As100  Bs6 : C=6;  PRINT  PRIKT  "BIl.LV  THE  KID  HAR":  PRINT  "UDFORDRET  DIO  TIL  DUEL" 

2  A*A-tIF  A=ø  THEN  PRINT  "I  BLEV  GODE  VENNER"  END 

3  PRINT  PRINT-AFSTAND"  R  "METER"  PRINT  "DU  HAR"  B  "SKUD  TILBAGE"  IF  B=0  THEN  7 

4  INPUT  "VIL  DU  SKVDE  <J7N>",A*  IF  A»="N"  THEN  7 

5  B'B-l  PRINT“BU  SKØD  ",  UF  RND  <1)>A/100  THEN  PRINT"00  RAMTE"  PRINT"DU  ER  EN  HE 
LT"  :END 

6  PRINT  "FORBI" 

7  IF  RNDUKA/løe  OR  C«ø  THEN  PRINT  "THE  KID  VENTER  ROLIGT"  00T0  2 

8  C=C-1  PRINT "BILLV  SKØD  ■;  IF  RNDUXA/100  THEN  PRINT  "FORBI"  GOTO  2 

9  PRINT  "00  RAMTE"  PRINT  "DU  ER  TEMMELIG  DØD" 

READV. 


Som  man  vil  se,  er  der  tre  va¬ 
riabler  ud  over  A$.  der  blot 
tager  imod  indtastning.  A  er 
atstanden  mellem  duellan¬ 
terne,  B  antallet  at  patroner  i 
din  revolver,  og  C  antallet  i 
modstanderens.  Linje  1  giver 
disse  variabler  deres  oprinde¬ 
lige  værdi  og  præsenterer 
spilleren  tor  spillet. 

I  linje  2  starter  spillet  med  at 
tormindske  atstanden  med  1 . 
Duellanterne  nærmer  sig  hin¬ 
anden  og  venter  på,  at  en  at 
parterne  skal  trække.  Hvis  at¬ 
standen  bliver  0  uden  noget 
dødstald,  må  man  gå  ud  tra 
en  fredsslutning.  Denne  situa¬ 
tion  kan  undertiden  opstå, 
når  begge  har  tømt  deres  re¬ 
volver  uden  at  ramme  mod¬ 
standeren. 

I  linje  3  tår  vi  situationen  på 
skærmen.  Vi  tår  atstanden  at 
vide  i  meter,  og  hvor  mange 
skud  vi  har  tilbage.  Modstan¬ 
derens  patronbeholdning  må 
vi  selvtølgelig  selv  holde 
regnskab  med.  Hvis  B=0, 
kan  vi  at  gode  grunde  ikke 
skyde,  og  den  tølgende  del 
at  programmet,  linje  4,  5  og  6 
er  overflødige  og  springes 
over. 

I  modsat  tald  bliver  vi  spurgt, 
om  vi  har  lyst  til  at  vove  et 
skud  på  den  opgivne  af¬ 
stand.  Hvis  ikke,  springer  vi  li¬ 
geledes  videre.  Hvis  ja,  mister 
vi  en  patron  (B = B- 1 )  og  tår  at 
vide,  at  vi  har  skudt. 

Herefter  har  vi  det  kryptiske 
"IFRND(1)>A/ 100  THEN  PRIN 
...”  Som  vi  ved,  er  dette  tal 
mellem  0  og  1 . 

Nu  stilles 
betingelserne 

Lad  os  nu  torestille  os,  at  at¬ 


standen  er  50  meter.  Vi  tår 
nu,  at  vores  tilfældige  rand¬ 
omtal  skal  være  større  end 
50/100.  altså  større  end  0.5. 
Det  vil  det  være  i  cirka  halv¬ 
delen  at  tilfældene  (der  er  li¬ 
ge  mange  muligheder  over 
og  under),  og  vores  chancer 
tor  at  ramme  er  altså  fitty -fifty. 
La  os  imidlertid  sige,  at  at¬ 
standen  er  90.  Nu  skal  det  til¬ 
fældige  tal  være  over  0.9, 
hvad  det  givetvis  kun  er  i  10% 
af  tilfældene.  Omvendt  kan 
vi  næsten  ikke  undgå  at  ram¬ 
me  på  afstand  1 0,  RND(  1 )  skal 
så  blot  være  over  0.1. 

Resultat:  Jo  større  afstand,  de¬ 
sto  mindre  chance  tor  at  ram¬ 
me.  Eller  anderledes  udtrykt  - 
jo  længere  vi  venter,  desto 
større  chancer  har  vi  tor  at 
ramme,  men  jo  større  chance 
er  der  selvfølgelig  også  tor,  at 
modstanderen  skyder  tørst.  Et 
uhyre  primitivt,  men  dog 
"strategisk"  spil  og  en  "reali¬ 
stisk”  simulation. 

Hvis  betingelsen  i  5  ikke  er 
opfyldt,  ryger  vi  ned  i  6,  vi 
ramte  torbi.  Nu  er  det  Billys 
tur.  Han  ved  selvtølgelig  og¬ 
så,  at  han  skal  vente,  men  ik¬ 
ke  tor  længe,  hvorfor  (som  du 
vil  kunne  regne  etter)  sand¬ 
synligheden  tor.  at  han  sky¬ 
der.  er  tilsvarende  afhængig 
at  afstanden.  Er  han  ikke  til¬ 
freds  med  oddsene,  eller  (OR) 
der  simpelt  hen  ikke  er  flere 
patroner  i  hans  revolver, 
"venter  han  roligt". 

I  modsat  tald  skyder  han,  og 
sandsynligheden  for  at  ram¬ 
me  athænger  igen  af  atstan¬ 
den.  Vi  kan  gøre  ham  til  en 
bedre  skytte  end  os  selv  ed  at 
udskifte  100  med  t.eks.  125. 
men  i  vores  eksempel  er  vi  li-  r 
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◄ 


ge  gode.  Skyder  Billy  forbi,  ry¬ 
ger  vi  tilbage  til  2  og  rykker 
endnu  en  meter  nærmere. 
Rammer  han,  ndja  .  .  . 


1 

2  B=INT<RND(1)*9>+1UF  A(B>=1  THEN  2 

3  IF  ft<9  THEN  1 

4  PRINT  PRINT  FOR  H=1  TO  SPRINT  : NEXT-C=C+1 : PRINT  PRINT :PRINT"FORSØG" 

5  INPUT"VEND";AUF  R<2  OR  fl>9  THEN  PRINTOOTO! 

6  FOR  B=1  TO  fi  B»<B>=R»<R-B+1>  NEXTF0R  B»1  TO  R  R*(B)=B*<B)  NEXT 

7  FOR  A=1  TO  9  IF  VRU(fl*<fl))OR  THEN  4 

8  NEXT  PRINT : FOR  8=1  TO  9  PRINT  RJ(fl>; :  NEXT  PRINT 

9  NEXT  PRINT  FOR  8=1  TO  9 1  PRINT  flt(R);  NEXT  PRINT 


RERDV. 

Vi  kan  til  en  begyndelse  køre 
det.  Vi  tår  opgivet  en  talræk¬ 
ke,  lad  os  sige 

218596743 

eller  tallene  1-9  i  vilkårlig 
rækkefølge.  Vores  opgave  er 
nu  at  sætte  dem  i  nummeror¬ 
den  i  så  tå  torsøg  som  muligt . 
Pointen  er,  at  vi  kan  få  vendt 
et  hvilket  som  helst  antal  citre 
regnet  tra  venstre  pr.  om¬ 
gang.  På  maskinens  spørgs¬ 
mål  VEND?  kan  vi  således 
svare  5  og  tå  den  ny  talræk¬ 
ke 

958126743 

Siger  vi  nu  i  næste  omgang  9, 
har  vi  i  hverttald  fået  nitallet 


på  plads.  Det  hele  kan  udfø¬ 
res  ret  mekanisk,  men  der 
kan  også  skydes  genveje.  Et 
næste  træk  på  4  ville  måske 
ikke  være  så  dårligt?  Men 
hvor  tå  omgange  kan  vi  rent 
faktisk  komme  ned  på? 

Spil  at  denne  type  kan  der 
naturligvis  laves  et  ubegræn¬ 
set  antal  at.  Lad  os  se  lidt  på, 
hvordan  dette  her  virker. 

De  tørste  3  linjer  har  at  gøre 
med  at  lave  den  tilfældige 
talrække.  Pointen  er,  at  hvert 
ciffer  tår  en  ekstra  værdi,  der 
bliver  til  1,  når  cifteret  er 
"brugt"  -  vi  skal  jo  ikke  have 
noget  ciffer  to  gange. 

4  printer  den  aktuelle  talræk¬ 
ke  ud  og  holder  regnskab 
med,  hvor  mange  forsøg  vi 
bmger.  5  spørger,  hvor  man¬ 


ge,  og  6  udtører  selve  "ven¬ 
dingen".  7  checker  i  hver 
omgang,  om  opgaven  er 
løst,  mens  8  (som  en  særlig  til¬ 
fredsstillelse  tor  os)  printer  den 
ordnede  talrække  ud. 

Dette  eksempel  er  lidt  van¬ 
skeligere  end  det  foregåen¬ 
de,  men  hvis  du  kigger  grun¬ 
digt  på  hver  linje,  er  det  til  at 
finde  ud  af  selv  for  begynde¬ 
ren.  Når  cifrene  laves  om  til 
strenge,  er  det  udelukkende, 
fordi  tal  har  en  tilbøjelighed  til 
at  tyide  en  del  på  skærmen. 


RERDV. 


Mød  Billy  i 
en  labyrint 

Adventure-spil  er  underhol¬ 
dende  og  ikke  så  svære  at  la¬ 
ve.  Du  kunne  have  mødt  Bil¬ 
ly  the  Kid  (eller  en  hel  horde 
desperados)  i  en  labyrint 
(western-by).  I  sin  simpleste 
torm  består  en  sådan  labyrint 
af  PRINT-linjer,  der  beskriver 
de  enkelte  mm,  med  GOTO 
imellem.  På  den  anden  side 
kan  ganske  tå  linjer  blive  til  et 
underholdende  spil.  Prøv 
t.eks. 


Kør  programmet,  og  du  bliver 
præsenteret  tor  et  enkelt  cif¬ 
fer,  som  straks  efter  forsvinder. 
Hvad  var  tallet?  Klarer  du  det, 
bliver  tallet  tocitret,  og  såle¬ 
des  videre,  indtil  du  husker 
forkert,  hvorefter  spillet  slutter, 
og  du  tår  et  pointsantal. 
PRINT  h"  betyder  simpelt 
hen,  at  skærmen  slettes  (på 
VIC  og  64).  En  Texas  vil  have 
CALL  CLEAR,  Sinclair  slet  og 
retCLS.D 

Erwin  Neutzsky-  Wulil 


1  R*=R**CHR*aNT<RND<l>*ieH48>  8=8*1  PRINT  PRINT  8* : FOR  8=1  TO  8*100  NEXT 

2  PRINT  "H" -  INPUT  "Tfll",B»  IF  8*=8*  THEN  1 

3  PRINT  PRINT  "NEJ,  *  8*  PRINT  PRINT  R*100  "POINTS" 


Vigtigt  ti 

■  Vi  tår  otte  henvendelser  tra 
læsere,  der  ikke  kan  tyde  de 
inverse  tegn  på  Commodore 
programmer. 

1  de  fleste  tilfælde  bmges  dis¬ 
se  tegn  udelukkende  til  at  far¬ 
ve  teksten  eller  printe  den 

I  næste  nummer  at  ” Soft  ”,  vil  samtlige  Commodore  64  ud- 
listninger  være  forsynet  med  informationer  i  stedet  for  et  in¬ 
verse  tegn. 


pænere  ud  på  skærmen.  De 
kan  derfor  ofte  undværes,  da 
de  ikke  betyder  noget  tor  sel¬ 
ve  programmets  kørsel. 
Bemærk  dog,  at  tegnene  in¬ 
verse  hjerter  og  inverse  S  skal 
bmges  altid. □ 
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Hor  på  "SOFT”  og  "Alt  om 
Data"  søger  vi  hele  tiden  ef¬ 
ter  nye  og  spændende  pro¬ 
grammer  til  alle  gængse 
computertyper.  Lige  fra  små 
smarte  rutiner,  over  spil  til 
seriøse  brugerprogrammer. 
Alle  offentliggjorte  program¬ 
mer  belønnes  med  op  til 
1000  skattefri  kroner,  der  ud¬ 
betales  kort  efter  at  bladet  er 
udkommet. 

Indsend  dit/dine  program¬ 
mer  på  kassettebånd,  di¬ 
skette  eller  mikrodrive  og 
vedlæg  beskrivelse  og  gerne 
udllstning.  Programmer 
uden  medsendt  lagermedie 
kan  ikke  bearbejdes  al  re¬ 
daktion  og  får  derfor  ikke 
chance  for  at  komme  i  bla¬ 
det. 

Af  praktiske  grunde  beder  vi 
om,  at  du  vedlægger  en 
frankeret  returkuvert  med  ty- 
delig  adresseangivelse . 


6  Soft  Special 


Stjernejæger 


lø  C'IM  A*)  2>, B*< 2 >, C« 2 ) 

20  ' stjern« j*9er 
30  GOSUB  f7ø 

4ø  F=ø  TR=ø  BZ-løSøø  !SK=3ø  BOROEP  F 
50  INK  ø,ø  INK  1. 15  INK  2,9  INK  3- 13 
60  SKAERMEN  SAETTES  OP 
70A*)1>="  "+CHR*)255)+" 

øø  A*t  2)=" 

90  Mt  1  >=” 

100  B*)2>= 

110  C*)l)« 

120  C*)  2  >=" 


”  +CHR*)  242  >+CHR*<  243)+" 


IR  YX<3  THEN  YX=3  RETURN 
IF  YX>18  THEN  YX= 18  RETURN 


"+CHR*)213)+CHR»)  2øø  >+CHR*)2ø8  >+CHR*)  212  )+“  “ 

“  +CHR*)  2 1 4  >+CHR*l  2 1  ø  )+CHR*)  2 1 0  )+C  HR*)  215)+”  " 

130  LOCRTE  1,1, PEN  1  PRINT  STRING*) 4ø, 127>'L0CATE  1,20, PRINT  STRING*) 40,127) 

140  FOR  N=2  TO  19  LOCRTE  1,N  PEN  1  PRINT  CHR*< 127), LOCRTE  4ø,N' PRINT  CHRS) 12? >  N 
EXT 

150  EVERY  100,0  GOSUB  460  REM  BENZIN 
160  '  HOVEDPROGRAM 

170  XX=INT)33*RND)+2'YX*INT<16*RND>+3'F1*=A»<1>  F2*=R*'2> 

180  LOCRTE  XX.YX'PEN  2, PRINT  Fl*,  LOCRTE  XX, YX-1  PRINT  F 2*, GOSUB  510 
190  IF  INKEY) 47 )=ø  THEN  GOSUB  520 
200  GOSUB  260 

210  IF  INKEYC ø )=ø  THEN  8=4, GOSUB  3 10- LOCRTE  XX-l.YX-2  PRINT  ” 

220  IF  INKEY(  1  )«0  THEN  8=1, GOSUB  280  LOCRTE  XX+6YX  PRINT"  "  LOCRTE  XX+6. YX-i  PH 
I  NT”  "-LOCRTE  XX+6, YX+1  PRINT"  " 

230  IF  INKEY(2)=ø  THEN  B»3  GOSUB  300, LOCRTE  XX-1. YX+1  PRINT  "  “ 

240  IF  INKEY) 8 >=ø  THEN  8=2, GOSUB  290, LOCRTE  XX-1, YX  PRINT"  ”, LOCRTE  X*£— 1-V5S— 1  'PR 
I  NT"  " 

250  EIDIGOTO  180 
260  'BEVREG  FJENDE 
270  B=INT( RND46  >+l 

280  IF  B=1  THEN  XX=XX-1  IF  XX<3  THEN  XX=3, RETURN 
290  IF  0*2  THEN  XX=XX+1 , IF  XX >33  THEN  XX=33, RETURN 
300  IF  8=3  THEN  YX»YX-1  LOCRTE  XX, YX+1  PRINT  " 

310  IF  B=4  THEN  YX-YX+1  LOCRTE  XX,  YX-2  PRINT  ” 

320  IF  B=5  AND  F1*=A») 1 >  THEN  F1*=B*) 1 >, F2*=B*) 2) , RETURN 
330  IF  B=5  AND  F1*«B*(1)  THEN  F1*=C*) 1 >, F2*=C*< 2>- RETURN 
340  IF  B=6  AND  F1*=C*< 1 )  THEN  F1*=B*< 1 ), F2*=B*) 2 ), RETURN 
350  IF  8=6  AND  F1»=B*(  1  >  THEN  Fl*=fl»U  >  F2*»fl*( 2)  RETURN 
360  RETURN 
370  STOP 
380  'EKSPLOSION 
390  ENV  1,15,-1,10 
400  SOUND  2,0,150,0,1,0,15 

410  LOCRTE  XX+3.YX  PEN  1, PR I NT  CHR*) 238 > , FOR  N=ø  TO  50NEXT 

420  LOCRTE  XX, YX  PRINT  STRING*) 6, 207), LOCRTE  XX,YX-1PRINT  STRING*) 6 . 207 )  FCR  N= 
ø  TO  200NEXT 

430  LOCRTE  XX, YX, PRINT  STRING*)6, 32), LOCRTE  XX, YX-1  PRINT  STRING*) 6, 32 ) 

440  F«F+1,  BORDER  F  MOD  32  RELERSE  7 
450  R=l,  RETURN 
460  'BENZIN 

470  LOCRTE  1,22  , PEN  3  PRINT"8ENZIN, " i  USI NG "#####" , BZ 
480  IF  BZ  =ø  THEN  U=REMRIN)ø)  GOTO  660 
490  BZ=6Z-100 
500  RETURN 

510  MOVE  304, 204' DRAM  304, 236, 3 ‘DRAM  336, 236, 3 ’ DRAM  336, 204, 3 , DRRW  304, 204, 3-  RET 
URN 

520  'SKUD 

530  MOVE  17, 98' DRRW  320.220,3  MOVE  623,98  DRRW  320,220,3 
540  MOVE  17, 98, DRRW  320, 220, 0 , MOVE  623,98  DRRW  320,220,0 
550  SOUND  1,50,10,7,0,10 

560  IF  )1 6<XX  AND  XX) 20 )  AND  <YX=tl  OR  YX=12)  THEN  TR=TR+ l , LOCRTE  2ø,22,PEN  3-PR 
I  NT  "RAMT,  ">  TR,  GOSUB  380 

570  SK=SK-1  LOCRTE  30, 22  PEN  3 ‘PRINT  "SKUD , USING"##" ;SK , IF  SK=ø  THEN  R=0  IJ=REMfl 
IN!  ø>  GOTO  610 

580  IF  R=1  THEN  R«0  GOTO  170 
590  RETURN 
600  SPIL  SLUT 

610  LOCRTE  1,23  PEN  1PRINT"DU  HRR  IKKE  FLERE  SKUD.” 

620  PRINT  "VIL  DU  PRØVE  IGEN?) J/N >“ 

630  IF  1NKEY)45)=0  THEN  CLSGOTO  40 

640  IF  INKEY) 46 )=ø  THEN  CLS,PRINT"TRK  FOR  DENNE  GANG ! " : RESTORE  GOSUB  790, FOR  N=ø 
TO  SøøNEXT  END 
65ø  GOTO  63ø 

660  LOCRTE  1,23  PEN  1  PRINT"DU  HRR  IKKE  MERE  BENZIN GOTO  620 
670  'TITELSIDE 

680  MODE  O, BORDER  15INK  ø,ø  INK  1,21 
690  LOCRTE  1,1  PRINT"****ST JERNE JAGER****" 

700  PRINT  STRING*) 20, 127)  PRINT"RF  HANS  WINTHER" 

710  GOSUB  790 

720  PRINT" DU  EP  I  EN  STJERNE-  JAGER  OG  SKAL  FORS-  VARE  DIT  MODERSKIB  MOD  FREMME 
DE." 

730  PRINT  PPINT"DU  STYRER  DIN  JAGER  MED  CURSOR-TRSTERNE  OG  SKYDER  MED  MEL-  LEMP 
UMS- TASTEN. " 

74ø  PRINT "HELD  OG  LYKKE!" 

750  PRINT"TRYK  PRA  'COPY'" 

76ø  IF  INKEY) 9  Mø  THEN  GOTO  78ø 

770  RESTORE  GOSUB  790  GOTO  76ø 

780  MODE  1 ! GOTO  4ø 

79ø  READ  note , dur 

800  IF  N0TE=9999  THEN  RETURN 

8 1 ø  SOUND  1 , note ■ dur , 1 5 

820  GOTO  790 

830  DATA  478,50,319,50,358, 13,379, 13.426, 13,239,60, 319,60,358, 13,379,13,426- 13,2 
39,60-319.60, 358 .15,379.15. 358 -15-426.70. 9999 , 999? 


■  Jorden  bliver  angrebet  al 
lremmede  rumskibe.  Din  op¬ 
gave  er  selvfølgelig  at  forsva¬ 
re  hjemplaneten. 

Du  sidder  i  din  Starhunter  og 
kigger  ud  gennem  lasersigtet. 
Det  gælder  om  at  skyde  så 
mange  tremmede  skibe  ned 
som  muligt  Du  styrer  jageren 
med  cursortasterne  og  skyder 
med  mellemrumstangen¬ 
ten.  □ 

Hans  Winther 
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et  ganske  udmærket '  'tørste- 
adventure".  (CBS). 

Ingen 
Ingen 
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di  man  ved  mødet  kan  væl¬ 
ge  mellem  at  tlygte  eller  slås. 
Hvis  man  vælger  at  slås,  kan 
der  ske  to  ting,  -  enten  ram¬ 
mer  man  eller  også  rammer 
uhyret.  Wauw. 

Ligetrem  at  kalde  det  tor 
'  'real-time  combat' '  er  måske 
lidt  overdrevet.  Til  EhDollahs 
ros  skal  siges,  at  det  ikke  altid 
er  det  samme,  der  sker  på  de 
forskellige  steder  i  spillet  Eh- 
Dollah  er  udelukkende  tekst. 
Nul  gralik  og  nul  lyd.  Spillet  er 
også  ret  let  selv  om  Goldstar 
påstår  det  modsatte. 

Det  er  måske  en  fordel,  for  ta¬ 
ler  man  engelsk  er  EhDollah 


Hvad? 

EhDollah? 


Hvem? 


EhDollah  er  navnet  på  både 
Goldstars  nye  adventure  og 
byen  som  eventyret  drejer  sig 
om.  Engang  var  EhDollah 
(byen),  konger  og  kejseres  til¬ 
holdssted,  men  etter  krigen 
med  den  grådige  "Sur-tøde- 
ration",  er  byen  faldet  totalt  i 
miner,  og  kun  et  menneske 
lever  stadig  i  resterne. 

Dette  menneske  er  den  onde 
troldmand  Meglin,  der  tør  kri¬ 


gen  var  god  og  passede  på 
EhDollahs  dyrebareste  skat,  - 
rubinen  der  kan  forvandle  al¬ 
le  metaller  til  guld  (de  vises 
sten). 

Under  krigen  blev  Meglin 
vanvittig,  og  nu  har  han  til¬ 
kaldt  en  horde  at  tabeldyr  til 
at  forsvare  rubinen.  Spilleren 
skal  kæmpe  sig  igennem  by¬ 
en.  slå  Meglin  ihjel,  og  slippe 
ud  igen. 

Goldstar  reklamerer  med,  at 
der  bruges  en  helt  ny  teknik, 
hvor  man  ikke  som  normalt  i 
adventures,  møder  et  uhyre 
og  dræber  det  eller  bliver 
dræbt.  Det  er  også  sandt,  for¬ 
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Sure  løg 

I  Poland  goes  Digging  skal 
du  grave  huller,  som  nogen 
levende  løg  kan  talde  ned  i. 
Så  snart  løget  er  dumpet  i, 
skal  man  skynde  sig  at  dæk¬ 
ke  hullet  til  med  sin  spade. 
Hvis  man  ikke  når  det,  kom¬ 
mer  løget  op  igen,  frygtelig 
rød  al  vrede .  Det  vil  så  direk¬ 
te  jage  én,  op  og  ned  ad 
trapper.  Eneste  redning  er  at 
grave  to  huller  under  hinan¬ 
den,  så  det  sure  løg  kan  talde 
to  etager  ned,  for  det  kan  det 
nemlig  ikke  tåle.  Mens  alt 
dette  toregår  talder  iltmæng- 


rttmmam 


4  é  i 


den  støt  og  roligt,  og  man  skal 
nå  at  putte  alle  løg  i  jorden, 
tør  ilten  er  udtømt. 

Spillets  grafik  er  elendig, 
grove  tegninger  og  grimme 
larver.  Lyden  er  om  muligt 
værre,  men  den  kan  man 
dog  slukke  tor.  Spændingen  i 
spillet  modsvarer  stort  set 
spændingen  ved  at  grave 
løg  ned  i  sin  egen  have.  Så 
sådan  set  er  det  et  ret  realistisk 
spil.  (Twilight). 
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Rumkuller 
til  lavpris 

1985  har  ikke  noget  med  års¬ 
tallet  at  gøre,  som  vi  befinder 
os  i  netop  nu.  Hvad  tallet  skal 
henføre  til  er  lidt  usikkert,  men 
i  hvert  fald  er  det  titlen  på  Ma- 
stertronics  nyeste  produkt.  Et 
rumspil  efter  klassisk  mønster, 
der  kun  vinder  i  vores  gunst, 
fordi  det  er  meget  billigt. 
1985  er  joystick  kontrolleret 
og  minder  i  styring  meget  om 


S4IS8$E 


velkendte  Lunar  Lander.  Du 
skal  besøge  forskellige  plane¬ 
ter  med  dit  rumskib,  tanke  op 
fra  små  lilla  depoter  og  snørk¬ 
le  dig  igennem  rumlabyrin¬ 
ter. 

1985  er  et  udmærket  spil  for 
begyndere.  Undervejs  i  uni¬ 
verset  besøger  du  8  forskellige 
planeter,  inden  du  hopper  vi¬ 
dere  til  næste  sværhedsgrad. 
(Supersoft). 

Grafik:  7 

Lyd:  6 
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Konkurrence 
for  McEnroe 


Matchpoints  ei  lige  netop, 
hvad  du  tår,  hvis  du  kan  be¬ 
gå  dig  i  Psions  usædvanlig 
flotte  sportsspil  al  samme 
navn.  Det  er  tennis,  det  hele 
drejer  sig  om.  Ovenikøbet  i 
en  udgave,  som  slår  alt, 
hvad  vi  hidtil  har  set  i  genren. 
Matchpoint  har  været  på 
markedet  i  et  lille  stykke  tid, 
men  spillet  er  så  godt,  at  vi 
simpelt  hen  ikke  kunne  lade 
være  med  at  anmelde  det. 
Matchpoint  er  ikke  blot  et  fas¬ 
cinerende  tennisspil.  Pro¬ 
grammet  kan  udmærket  bm- 


I  elektronik 
helvede 
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ges  som  kursus  udi  John 
McEnroe  sporten.  Spilleren  ser 
nemlig  på  en  meget  livagtig 
måde,  hvordan  ketsjeren 
skal  holdes  i  alle  mulige  sne¬ 
dige  slag  -  underskruning, 
overskrue,  sideskrue,  smash 
osv. 

Matchpoint  har  en  rimelig 
god  grafik,  og  lyden  er  be¬ 
stemt  ikke  at  prale  af.  Til  gen¬ 
gæld  er  spændingen  meget 
større  end  i  markedets  øvrige 
sportsspil. 

Du  kan  vælge  mellem  at  spil¬ 
le  mod  computeren  eller 


mod  en  kammerat.  Normalt 
skal  man  starte  i  indledende 
kampe  for  at  fortsætte  i  semi- 
finaler  og  helt  frem  til  de  store 
finale.  Med  lidt  fingerfærdig¬ 
hed  kan  du  dog  direkte  pla¬ 
cere  dig  mellem  de  sidste  to  i 
turneringen.  Pointsgivningen 
er  præcis  som  i  rigtig  tennis. 


(Twilight). 
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■  For  meget  længe  siden,  i 
en  galaxe  langt  langt  væk, 
lå  planeten  Quon,  der  beher- 
skedes  af  den  onde  kejserro¬ 
bot. 

I  Psytraxx  er  du  en  mikro- 
robot  der  skal  trænge  gen¬ 
nem  kejserens  elektroniske 
kredsløb  for  at  nå  frem  til 
hans  CPU  (hjernen  i  enhver 
computer)  og  ødelægge 
den. 

Undervejs  bliver  du  angrebet 
af  alt  lige  fra  kondensatorer 
og  transistorer  til  blinkende 
lysdioder.  Heldigvis  har  du  en 
lille  kanon,  der  skal  lades  op 
med  de  batterier,  du  finder 
undervejs. 

Fabrikanten  hævder,  at  der 
er  mere  end  1000  skærme  at 
udforske,  og  dette  går  natur¬ 
ligvis  ud  over  detaljerne. 
Hvert  mm  er  en  lille  labyrint 
af  printbaner  besat  med  for¬ 
skellige  komponenter,  som 
du  ikke  må  ramme.  Det  gæl¬ 
der  om  at  finde  de  forskellige 
adgangskort,  så  du  kan  kom¬ 
me  ind  til  selve  CPU'en. 
Psytraxx  kræver  ikke  den 
helt  store  hjernevirksomhed, 
men  det  må  være  op  til  den 
enkelte  at  afgøre,  om  dette 
taler  for  eller  imod  spillet.  Spil¬ 
let  er  ret  ensformigt,  men  er 
utvivlsomt  et  udmærket  alter¬ 
nativ  til  sovepiller.  (Twilight)D 
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Nu  har  du  chancen  for  at  se, 
hvordan  jorden  var  i  fortiden 
og  hvordan  vi  vil  få  det  i 
fremtiden.  Det  er  i  hvert  fald 
den  ydre  ramme  i  Roland  in 
Time  fra  Amsoft. 

Eller  med  Amsofts  egne  ord: 
Roland  er  strandet  på  jorden, 
og  skal  nu  søge  hele  dens  for¬ 
tid  og  fremtid  igennem  efter 
krystaller  til  hans  ødelagte 
Anti-Matter  Space-Time  Run- 
A-rounD.  Der  er  98  tidszoner 
med  hver  op  til  9  underzoner 
ialt  53  scener,  der  skal  søges 
igennem. 

Undervejs  vil  du  støde  på  de 
mærkeligste  dyr,  hvis  eneste 
fællestræk  er,  at  de  dræber 
dig  hvis  du  kommer  for  nær. 
For  at  komme  igennem  alle 
de  scener  der  er  i  hver  enkelt 
tidszone  skal  du  ofte  foretage 
de  mærkeligste  krumspring 
og  finde  usynlige  hemmelige 
gange. 

Roland  in  Time  ser  mistæn¬ 
keligt  ud  til  at  være  inspireret 
af  Manic  Miner.  Men  spillet  er 
selvstændigt  og  godt  lavet. 
Det  varer  MEGET  længe  før 
man  bliver  træt  af  at  søge 
igennem  scenerne. 
Grafikken  er  ret  god,  hurtige 
sprites,  farver  og  andre  effek¬ 
ter.  Lyden  er  elendig.  Det 
eneste  gode  man  kan  sige 
om  den,  er,  at  den  kan  slås 
fra!  Selve  spillet  er  som  anty¬ 
det  fremragende.  (Twilight). 
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Gryp,  gryp 
min  hest 


■  Tony  Crowther,  der  sidst  vi¬ 
ste  os  den  perfekte  efterlig¬ 
ning  af  Suicide  Express  med 
Black  Thunder,  kommer  her 
ihvertfald  med  noget  nyt. 
Gryphon  hedder  spillet  og 
handler  om  en  lille  griffin.  Et 
væsen  fra  et  drømmeland 
fjernt  væk  fra  storbyernes  støj 
og  os.  Gryphon  ligger  og 
drømmer,  da  han  bliver 
vækket  brat  af  forstyrrende 
små  spøgelser.  Det  var  dog 


pokkers!  -  Nå.  men  jeg  må 
hellere  se  og  finde  min  rede  i 
stedet  for  at  ligge  her  ude  i 
skoven  og  sove  hele  livet 
væk. 

Men  -  intet  er  som  før,  pludse¬ 
lig  er  der  spøgelser  overalt .  De 
flagrer  hen  over  hovedet  på 
Gryphon,  der  med  mystiske 
krumspring  må  forsøge  at 
undgå  dem.  Men  forsøge  sig 
tO  vands  er  heUer  ikke  muligt. 
Vandet  er  nemlig  blevet  for¬ 
vandlet  til  den  rene  gift. 
Gryphon  er  foruden  sine  fire 
ben  forsynet  med  et  sæt  vin¬ 
ger. 

Disse  vinger  kan  kun  bære, 


Hekse¬ 

kunster 
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Cirkus¬ 

artister 


En  af  de  flittigste  producenter 
af  MSX-programmer  er  ja¬ 
panske  Konami.  I  Circus 
Charlie  styrer  du  klovnen 
Charlie,  som  skal  underholde 
publikum  bedst  muligt  ved  at 
udføre  5  mere  eller  mindre 
halsbrækkende  cirkusnum- 
re.  Først  skal  du  springe  gen¬ 
nem  brændende  ringe, 
mens  du  rider  på  en  dresseret 
cirkusløve.  Pas  på  de  små 
bål,  der  er  tændt  i  manegen. 
Dem  skal  du  springe  over. 
Når  du  er  nået  gennem  hele 
banen  skal  du  til  at  gå  på  li¬ 
ne.  Det  lyder  måske  nemt, 
men  du  skal  passe  på  aber¬ 
ne:  Hvis  de  rammer  dig  falder 
du  ned.  Herefter  skal  du  ba¬ 
lancere  på  nogle  store  bolde, 
ride  på  cirkushest  og  hoppe 


fra  trapez  til  trapez.  Du  kan  få 
Charlie  tO  at  bevæge  sig  frem 
eller  tObage  og  hoppe,  og  det 
gælder  hele  tiden  om  at  ha¬ 
ve  timingen  i  orden.  Ellers  fal¬ 
der  du  ustandselig  på  halen. 
Circus  Charlie  er  let  forståe¬ 
ligt  og  ublodigt,  og  vil  derfor 
først  og  fremmest  henvende 
sig  til  de  yngste .  Grafik  og  lyd 
kan  ikke  måle  sig  med  de 
bedste  spil.  men  virker  dog 
ganske  overbevisende,  idet 
der  er  gjort  udstrakt  bmg  af 
sprites.  En  god  detalje  er,  at 
du,  når  du  har  mistet  din  sid¬ 
ste  Charlie,  kan  starte  et  nyt 
spil  med  at  udføre  det  samme 
nummer,  som  du  sidst  arbej¬ 
dede  med.  Du  behøver  altså 
ikke  starte  forfra  ved  hvert  nyt 
spil.  (Twilight). 

Grafik:  — i  9 

MSX  I 

Action:  s  8 

Pris/kvalitet  -  8 


■  Har  du  nogensinde  prøvet 
at  flyve  rundt  i  luften,  lande 
på  heksekedler  eller  prøvet  at 
kæmpe  mod  kranier  og  mu¬ 
mier?  -  Hvis  ikke  skal  du 
prøve  at  spille  Sorcery. 
Sorcery  findes  til  både  Spec¬ 
trum,  Commodore,  Amstrad 
og  MSX  systemet .  Vi  har  speci¬ 
elt  kikket  nærmere  på  Spec¬ 
trum  og  Commodore  udga¬ 
ven  og  viser  skærmbilleder 
fra  disse  to. 

Spectrum  udgaven  er  en 
meget  skrabet  udgave,  hvor 
du  kun  har  1 5  skærme  til  hele 
spillet.  Spillet  kan  med  lidt 


held  gennemføres  på  meget 
kort  tid.  og  vil  ikke  motivere 
en  garvet  spiller  til  at  fortsætte 
med  det,  når  først  spillet  én 
gang  er  kørt  til  ende. 

Sprit 'ene  er  ikke  særligt  vel¬ 
lykkede.  og  især  mumie¬ 
sprit 'en  er  grim.  Lydsiden  må 
betegnes  som  direkte  ubeha¬ 
gelig  og  spændingen  må 
man  lede  længe  efter.  Com¬ 
modore  udgaven  har  17 
skærme,  flot  grafik  nogenlun¬ 
de  lyd  og  flotte  sprites.  Især 
det  flyvende  spøgelse.  Svær¬ 
hedsgraden  er  lidt  større  end 
på  Spectrum,  idet  energien 
og  tidsfaktoren  tilsammen  er 
sat  så  snævert,  at  man  næ¬ 
sten  aldrig  kommer  igennem. 
Selv  forskellige  joystick-ekvili- 
brister  havde  problemer  med 
at  klare  mere  end  1 2  af  de  1 7 
skærme , 
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såfremt  han  har  rigeligt  med 
tilløb  tørst .  Når  Gryphon  er '  'in 
the  air"  kan  han  så  kaste  di¬ 
verse  forbandelser  i  hovedet 
på  de  omkringflyvende  spø¬ 
gelser. 

Hvis  Gryphon  får  kontakt  med 
et  spøgelse,  dør  han  øjeblik¬ 
keligt.  Gryphons  opgave  er  at 
medbringe  en  guldbarre  fra 
skoven  til  at  plumpe  i  det  for¬ 
giftede  vand  for  derved  at  la¬ 
ve  en  sti  til  reden. 

Efter  vejen  er  klar  til  reden, 
kan  Gryphon  hvile  lidt  i  re¬ 
den,  før  turen  går  videre  til 
næste  trin,  der  er  en  helt  ny 
verden  af  huse  og  bygninger. 
Sidste  level  foregår  i  tusmørke- 
landet,  hvor  døden  lurer  alle 
vegne. 

Spillets  originalitet  er  der  den¬ 
ne  gang  ingen  tvivl  om,  og 
Quicksilva  kan  uden  slinger  i 
valsen  kalde  deres  Gryphon 
for  en  nyhed.  Grafikken  i  spil¬ 
let  er  fantastisk  flot,  og  hvis  du 
er  i  besiddelse  af  Currah  Mi¬ 
cro  Speech  får  du  sjove  be¬ 
mærkninger  med  på  vejen. 
(CBS). 

Grafik:  commo  I  1 1 

Lyd:  ‘m*  9  10 

Action:  10 

Fængslende:  9 

Pris/kvalitet:  10 


Slappe 

kattetarme 


■  Ja,  kattetarme  er  jo  be¬ 
kendt  noget  man  benytter  til 
ketschere,  og  i  dette  tilfælde 
tennisketschere. 

Hvis  man  har  prøvet  Psions 
Matchpoint-tennisspillet  for 
eliten,  bliver  man  uden  tvivl 
enormt  skuffet,  når  man  prø¬ 
ver  On  Court  Tennis  tra  Acti- 
vision. 

Activision  plejer  jo  ellers  at  le¬ 
vere  kvalitetsspil,  men  er  den¬ 
ne  gang  skudt  langt  langt  for¬ 
bi. 

On  Court  Tennis  virker  meget 
levende,  og  ser  ved  første  øje¬ 
kast  ud  til  at  være  endnu  et 
fint  produkt.  Men  snart  opda¬ 
ger  man,  at  sceneriet  trods 
den  flotte  opsætning  ikke  rig¬ 
tig  kan  bruges  til  noget. 

Du  kan  vælge  at  spille  mod 
computeren  eller  mod  din 
kammerat.  Hvis  du  spiller 
mod  computeren,  har  du  sim¬ 
pelthen  ikke  en  jordisk  chan¬ 
ce.  Hvis  du  spiller  mod  din 
kammerat,  og  han  med  møje 
og  besvær  finder  ud  af,  hvor¬ 
dan  man  skal  bringe  bolden 
over  på  den  anden  side  af 


nettet,  kan  du  næppe  retur¬ 
nere  bolden  9  ud  al  1 0  gange . 
Så  selve  konkurrencen  i  spillet 
er  bare  lig  med  nul  -  zero  - 
nothing. 

Styringen  af  On  Court  Tennis 

foregår  selvfølgelig  med  joy- 
stick.  Men  du  skal  ikke  bevæ¬ 
ge  din  spiller  på  banen,  men 
derimod  kun  koncentrere  dig 
om  det  rette  salg.  Slagene 
kan  ifølge  instruktionsheftet 
foregå  efter  alle  kunstens  reg¬ 
ler  hvor  75  pct.  af  dem  går  i 
nettet.  Du  kan  sideskrue,  over¬ 
skrue,  underskrue  samt  sma- 
sche  i  serven. 

Belægningen  du  kan  spille 


på  er  grus,  asfalt  eller  græs  og 
forskellen  er  ens  (som  de  siger 
vestpå). 

Grafikken  i  On  Court  Tennis 

er  livagtig,  men  ikke  perfekt. 
Figurerne  er  pæne,  men  re¬ 
sten  er  kedeligt.  Lydsiden  er  li¬ 
gesom  i  Matchpoint  ret  beske¬ 
den.  Hvilken  lyd  skulle  man 
også  finde  på  til  tennis .  Spæn¬ 
dingen  er  som  sagt  næppe 
værd  at  omtale.  (CBS). 

Grafik:  [jr^ — -|jj)  8 

Lyd:  “SS?  I  6 

Action:  64  1*11  8 

Fængslende:  5 

Pris/kvalitet:  6 
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Stenborgen 


1  REM  ♦****BORGEN****+ 

2  REM  48K  ZX  SPECTRUM 

3  REM  3  JUPPI  SOFTWARE  1984 
12  GO  SUB  95*0 


20  RESTORE  :  LET  kroo=l&0:  LET  arnt*0:  LET  tilb*0:  LET».»te*ll  LET  buKo-0 
JO  BORDER  7:  POPER  7!  INK  O:  CLS 


SPEC¬ 

TRUM 


a^CTNBSSHHSSBaHBE 

llta3j<eig|tiww!i»wwii>gw»|g» 

IBH-Bir«' 


40  FOR  v*0  TO. 31:  PRINT  AT  21.  vi  INK  4ICHR*  162:  NEXT  v 
70  GO  SUB  3000 
90  INK  O 

I  OO  FOR  W«20  TO  O  STEP  -1 
110  GC  SLB  6000 
120  NEXT  w 
130  GO  ^UB  8000 

140  PRINT  AT  20,2:  INA  itCSS*  54:ChR*  I55ICHR*  1565AT  i9,3tCHR*  153:  PAUSE  15: 
“RINT  AT  20.1;  INK  l;CHRt  160;AT  19, ltCHR*  16. 

150  £EEP  .3.0:  BEEP  .3,0:  BEIP  .3.0:  PAUSE  2:  BcEP  1.-4 
170  00  SJB  7000 

190  LET  dos-O:  LET  buefcr-153:  _ET  taei ier-0 
IBO'tENT  taei ier«tae: i er+I 

201  LE"  w-tae i  ier/20:  IF  «>  20  "HEN  ?RIN"  #1  ; AT  o.  O:  tl.A3-i  i;"SOM  ~IDEN  DOG  GAA 
R  TED  INGENTING" :  BEc°  .5,0:  BEEP  .6.-4:  BEEP  .2.0:  00  SUB  6500 
203  IF  w* I NT  «  THcN  GO  SUB  6000 


207  GO  SUB  2500 
215  IF  :NK£Y*«"n” 


AND  buenr)144  THEN  B-tP  .01.0:  LET  buener  -buen r  — ! :  GO  SUB  750 


■  I  dette  sjove  spil  til  Spectrum 
kommer  du  tilbage  til  forti¬ 
den. 

Du  skal  forsøge  at  smadre 
computerens  borg  med  din 
stenkaster.  Programmet  er  til 
Spectrum  48  K.D 

Jens  Ulrik  Pedersen 


.2.-30:  LET  buenr-153:  RETURN 


LET  do** pos— 1 


INK  ltAT  20.  pos*.  IN 
INK  HAT  19.  po*-*-3 


240  IF  INKEY**"«"  THEN  GO  SUB  2000 
250  GO  SUB  3000 
800  GO  TO  200 
2000  REM  skyd 

2005  LET  t*ei i e-0:  lET  hO^*19 

2010  FOR  w*buen r  TO  153:  PRINT  AT  19.  dos+3:  INK  ltCHRS  w:  LET  buko=i:  GO  SJB  300 
O:  NEXT  w:  .LET  »tyrK»»bu»nr:  _ET  buenr-153:  LET  buxo*0 
2030  FOR  w»pos+4  TO  31 :  PRINT  AT  hOj.wlCHR*  157 
2035  LET  taei 

2040  GO  SUB  3000:  GO  SUB  2500:  PRINT  AT  hO '* 

2050  IF  ATT  R  <h0j  .w-M>*58  THEN  PRINT  AT  hOj . w+1 I CHR*  158:  FOR  b*  1  TO  10:  BEEP  . 

01 ,  10+b  s  NEXT  b:  90  SUB  2100:  LET  buer.r-153:  RETURN 

2055  IF  taei le <■< 153-sty rke)  THEN  LET  hOj-hO,,-.  6:  GO  "O  2065 

2060  LET  h0j*h0v>.6 

2065  IF  h0^>20  THEN  BEEP  .2.-30:  LET  buenr-153:  RETURN 

2066  NEXT  w 

2070  LET  buenr-153:  RETURN 

2100  IF  **28  THEN  FOR  v»l  TO  10:  BEEP  .01.10:  BEEP  .01,20:  BEE?  .01.30:  NEXT  v: 

GO  TO  5500 
2110  RETURN 
2500  REM  rykker  vosn 

2510  IF  INKEY*-"«"  AND  pos) O  THEN  LET  po**pos-1 
2520  IF  INKEY*«" s"  AND  POS<20  THEN  LET  pgs-pos+1 

2525  PRINT  AT  19.  pos:  INK  Ol"  "  I  INK  llCHR*  kroPt  INK  O:"  "?  INK  ltAT  20.  pos*.  IN 
K  OJ"  "I  INK  1SCHR*  160ICHR*  iSA'.CHR*  155ICHR*  1561  INK  O: “  INK  1»AT  19. eos+3 
iCHRt  busn r  •  INK  0: "  " 

2530  RETURN 

3000  REM  fjenden  skyder 

3010  IF  buko* 1  THEN  GO  SUB  3200 

30.15  IF  ti  lb-1  THEN  LET  tilb-O:  RETURN 

3050  IF  s.*te-l  THEN  LET  Dietx-Dos+3:  LET  siste-O:  LET  kux-24:  i_ET  kuy»8 

3030  PRINT  AT  kuy.kuxS"  M 

3040  LET  kux*kux-l 

3050  LET  kuy-kuy+12/ (25-pi etx ) 

3052  IF  kuy > 20  THEN  BEEP  .01,10:  LET  t.«te*i:  RETURN 

3055  IF  ATTR  (kuy.kux>-57  THEN  BEEP  1,0:  BEEP  1.-10:  BEEP  1.-20:  PRINT  AT  19, po 

si*  '*  i  AT  20,  pos  I  "  “l  PLOT  <pos*2>*8. 8:  DRAW  0.16:  DRAW  0.-5:  DRAW  -5.0:  D 

RAW  10,  O:  GO  TO  6800 

3060  PRINT  AT  kuy.kuxlCHR*  157 

3090  RETURN 

3200  REM  holder  fert  ved  Skud 

3210  IF  w/2-INT  (w/2)  THEN  LET  tiib-1 

3220  RETURN 

5000  REM  tesnbors 

5010  INK  2:  FOR  v-20  TO  10  STEP  FOR  w»26  TO  28:  PRINT  AT  v.  wtCHRt  163:  NEXT 
w:  NEXT  v:  PRINT  AT  9.  251 CHRS  163? AT  9.27ICHR*  163?AT  9.  295CHR*  163 

5020  FOR  v-20  TO  14  STEP  -1 :  FOR  m=29  TO  31:  PRINT  AT  v,  wlCHR*  163:  NEXT  w:  NEXT 

v 

5030  RESTORE  5030:  PLOT  208.8:  FOR  w-1  TO  17:  READ  xx.yy:  DRAW  xx.yyi  NEXT  m:  DA 
TA  O,  88.  -8.  0.0,8.  8.  O.  O,  -8,  8,  O.  0.  3.  8,  O.  O,  -8,  8,  O.  0.  8.  8.  O.  O.  -8.  -8,  O.  O.  -88,  0.  56.  23.  O 
5040  RETURN 
5500  REM  r u i n 

5510  FOR  b-0  TO  30:  BEEP  .01,  b:  BEEP  .Ol.b-MO:  NEXT  b 
5520  FOR  w«8  TO  20:  PRINT  AT  w.  25:"  "«  NEXT  w 

5530  INK  2:  RESTORE  5530:  PLOT  248.64:  FOR  w*l  TO  15:  READ  xx.yy:  DRAW  xx.yy:  NE 
XT  m>  DATA  O.  15. -10.-20.-10.  13.  -3.  -20.  -2.5.  -6.-10.  O,  -8.  -5, -10,4,  -2,  -2.  -7.-3.  -5. - 
4.-6. 18. 10, -3.  10.  20. -9 

5540  PRINT  AT  16.28ICHR*  163ICHR*  163ICHR*  163IAT  1B.29:CHR*  1631AT  20.  27ICHR*  1 
631 CHR*  163 

5550  INK  0:  PRINT  il  :AT  0,0:  FLASH  1»"TIL  LYKKE  DU  KLAREDE  DEN!" 

5555  FOR  c— 1  TO  2 
5560  RESTORE  5580 

5570  FOR  b* 1  TO  18:  READ  bese:  BEEP  .  l.be*P*d  NEXT  b:  NEXT  c 
5580  DATA  16.16.14.12.7.0.16.16.14.12.7.0.12.12.14,14.12,12 
5590  PRINT  il  I  AT  0.  Ol"VIL  DU  PROVE  IGEN  ?  -  TAST" 

5600  LET  ko o*0 

5610  IF  hoo/2-INT  (hOP/2)  THEN  PRINT  AT  18, pos  +  1:  INK  11"  " 1  AT  19.  pos  +  1 1 CHRt  15 
9: AT  20,  pos-*  1  : CHRi  160 

5620  IF  hop/2  O  INT  (hOP/2)  THEN  PRINT  AT  18,  dos*  1  I  INK  li  CHR«  161*.  AT  19,  pos+HC 
HR*  1 60  :  AT  20.  posM  1"  " 

5630  BEEP  .05. RND*10 

5640  LET  hOP*hOP+l 

5650  IF  INKEY*-""  THEN  GO  TO  5610 

C660  GO  TO  20 

6000  REM  solen  J 

6005  RESTORE  6040:  FOR  v-w  TO  w*9  S 

6010  IF  v>  20  THEN  NEXT  vi  RETURN 

6030  READ  til  PRINT  AT  v.  O«  INK  6le«:  NEXT  v  _  _ 

6040  data  h  ■  mm  ■■■*  -.■•mmmtm  ",-mmmmm  wmmm 


GO  TO  5610 


6050  RETURN 

6500  REM  det  bi  ir*  aften 

6510  FOR  d«1  TO  100 :  NEXT  tsi  PAPER  O:  BQRDER  O:  INK  7:  CLS 


GC  SUB  5000:  INK  7* 


1 2  Sott  Special 


PROGRAMMØRER 
TIL  SOFT 


Her  på  "SOFT"  og  "Alt  om 
Data’ '  søger  vi  hele  tiden  et¬ 
ter  nye  og  spændende  pro¬ 
grammer  til  alle  gængse 
computertyper.  Lige  fra  små 
smarte  rutiner,  over  spil  til 
seriøse  brugerprogrammer. 
Alle  offentliggjorte  program¬ 
mer  belønnes  med  op  til 
1000  skattefri  kroner,  der  ud¬ 
betales  kort  efter  at  bladet  er 
udkommet. 

Indsend  dit/dine  program¬ 
mer  på  kassettebånd,  di¬ 
skette  eller  mlkrodrive  og 
vedlæg  beskrivelse  og  gerne 


udlistning.  Programmer 
uden  medsendt  lagermedie 
kan  ikke  bearbejdes  al  re¬ 
daktion  og  får  derfor  Ikke 
chance  for  at  komme  i  bla¬ 
det. 

Af  praktiske  grunde  beder  vi 
om,  at  du  vedlægger  en 
Irankeret  returkuvert  med  ty¬ 
delig  adresseangivelse. 

VI  glæder  os  til,  at  du  kontak¬ 
te  os.  Send  programmerne 
til  "Alt  om  Data”,  St.  Kon¬ 
gensgade  72,  1264  Køben¬ 
havn  K. 


BRIGHT  i:  CIRCLE  20,155,20:  CIRCLE  25.168.3:  CIRC_E  15,168.3:  CIRCLE  20,145, 
BRIGHT  0 

6530  LET  z*="zzzzzZZZ" 

65&0  PRIKT  #1  5  AT  0,  0;"DET  ER  BLEVET  MORKT-SORRY  ‘  " 

6550  RESTORE  6550:  FOR  b=l  TO  16:  READ  beep:  BEEP  . 4,b*eo:  NEXT  b:  DATA  5.5,2 
5.5,2,  2.3,3,  2,  3,  5,  5,  2,  2 

6555  PRINT  »HAT  0,  05"VIL  DU  PROVE  IGEN  ?  -  TAST" 

6560  FOR  w*l  TO  8:  PRINT  AT  8.  24-w;  INK  6!z*(w>:  PAUSE  4:  GO  SUB  6700:  NEXT  w 

DR  w»l  TO  8:  PRINT  AT  8,  24-w! .  PAUSE  4:  GO  SUB  6700:  NEXT  w:  PAUSE  15 

6580  GO  TO  6560 
6700  REM  starter 

6710  IF  INKEYS  O " "  THEN  GO  TO  20 
6720  RETURN 
6800  REM  dOdmar.d 

6810  FOR  w=l  TO  100:  NEXT  w:  PRINT  #1  S  AT  0.  0:"DU  OG  DIN  MASKINE  BLEV  RAMT  ! 

";  inverse  i:Maa  hvil  i  fred  aaM 

6820  RESTORE  6820:  FOR  b=l  TO  11:  READ  beeo:  BEEP  .3, beeo:  NEXT  b:  DATA  0,0.0 
-4,  -4,  -4.  -6.  -4,  -6.  -4 


6830  PRINT  41  ?  AT  0,  01"  VIL  DU  PROVE  IGEN  ?  -  TAST 
6840  LET  ko o*0 

6850  IF  kop/2* I NT  (Koo/ 2)  THEN  PRINT  AT  8.  26JCHR*  159; AT  9.  261CHR*  160 

6860  IF  kop/2  O  I  NT  (hoo/2)  THEN  PRINT  AT  8.  26 5  "" 5  AT  9,  26;CHR*  161 

6870  BEEP  .03,  RND*20:  LET  kop-kop+1 

6880  IF  INKEY**-"  THEN  GO  TO  6850 

6890  GO  TO  20 

7000  REM  fjende  truer" 

7010  FOR  w*l  TO  16 

7020  IF  w/2*INT  (w/2)  THEN  PRINT  AT  9.  261CHR*  159 
7030  IF  w/2  O INT  (w/2)  THEN  PRINT  AT  9,  26;CHRS  161 
7040  BEEP  .01,-20:  BEEP  .01,-30:  NEXT  w 
7500  REM  traek  fjeder 

7510  IF  arm*l  THEN  LET  kroe*159:  LET  årm*0:  GO  TO  7530  — 

7520  IF  arm*0  THEN  LET  kroo-161:  LET  artn*l 

7530  RETURN 
3000  REM  ■  Osten 

3005  RESTORE  8020:  FOR  w»l  TO  15 

3010  READ  tone:  BEEP  .4, tone:  NEXT  w 

3020  DATA  5.  10.  9.  10,  10.  12.  12.  14,  17,  14,  12,  10.  7,  5,  5 

8030  RETURN 

9000  REM  sraf.k 

9005  RESTORE  9040:  FOR  v»l  TO  20 
9010  READ  ai:  FOR  w*0  TO  7 
9020  READ  talt  POKE  USR  a*-*-w,tai 

9030  NEXT  w:  NEXT  v 

9040  DATA  " a" .  O,  O.  O,  O.  O.  O.  192.  255.  " b" ,  O.  O,  O.  O,  O,  1 92.  254,  1 


DATA  "c".  O,  0.0.0,  192.240.  14,  1, 


.0,0.0.  96.96,  24.  6,  1 


"e“,  O,  O.  96.  96.  24,  4.  2,  1.  "f  ".O,  48,  48,  8,  4.  2.  1.  1 

"s".  O.  24,  24.  4,2,2,  1 .  1 .  " K" .  12.  1 2,  4,  2.  2,  2.  1 ,  1 

"  6,  6,2.2.  1,  1.  1,  1,  "  j",  3.  3.  1.  1,  1,  1,  1.  1 

"KM ,  3.  4,  11,22.29.6,3.0,  "I". 255. O,  142.219.  117,219,  142.0 
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9100  DATA  "m",  128.64,64,64,  192.0,0,  O,  "n",  24,  24.  O,  O,  O,  O,  O,  O 

9110  DATA  "o",  128,64,32,27,4,8.48,  199,  "o".  56.  124,85,  125,69,  125.57,255 

9120  DATA  "q",  184,  184,  248,  40,40.  68,  68,  198.  "r",56.  124,  84,  124,  108,  124,  56,  255 

9130  DATA  "s".  170.  170.  170,  255,  255,  255r  O,  O,  "t“,  128,  128.  128.  255.  8,8,8.  255 

9140  RETURN 

9500  REM  vfjiedfiiM 

9510  BORDER  l:  PAPER  l:  INK  7:  CL8 

9520  INK  6:  PLOT  0,0:  DRAM  255.0:  DRAM  0.175:  DRAW  -255.0:  DRAW  0,-175  :  INK  7 
9530  PRINT  AT  1,12;  INK  3;  FLASH  i;  BRIGHT  l : "»BORGEN* " 

9535  PRINT  AT  10.  li "SKYD  FJENDENS  BORG  I  STYKKER''" 

9540  PRINT  AT  12. 3: "a=VOGN  TIL  VENSTRE" 

9550  PRINT  AT  14.3:"s*V0GN  TIL  HOJRE" 

9560  PRINT  AT  16. 31 " n-SPAEND  BUEN" 

9570  PRINT  AT  18,  3:  "p*SKYD" 

9580  LET  n*=M3  JUPPI  SOFTWARE  1984" 

9590  GO  SUB  9000:  FOR  w*l  TO  21:  PRINT  AT  8,  w+3l  INK  5*.CHR*  1541CHR*  1551CHR*  15 
6;AT  8,  w*2 ;  INK  4;  INVERSE  ltn*(w)l  INVERSE  0:AT  7,w+3:"  " ; CHR*  153:  PAUSE  5:  NE 
XT  w 

9600  PAUSE  50:  FOR  w*l  TO  7:  PRINT  AT  m.  2Sl"  " ; AT  1,25 1 CHR*  157:  PAUSE  5:  NEXT 
w:  BEEP  1,-30:  PRINT  AT  8,24;"  PLOT  200,104:  DRAW  0,20**DRAW  0,-7:  DRAW  -5 

,0:  DRAW  10.0 

9650  PRINT  iliAT  0,O;"TAST!":  BEEP  . 01. RND*30:  IF  INKEY*<>"“  THEN  RETURN 
9660  GO  TO  9650 
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SO  GOSUBSO I O ( G0SUB33 1 0 

30  PRINT*J-»CHR*<  9>)CHP*<  14>rCHR«<  8)  HH 

40  PR|NT-«|  |  RYK  -OR  RT* 

43  POKE33SØO ,0 » P0KE3328 I  ,0 

30  PRINT-«  IT<  -  RENDRE  HESTENS  NRVNE ■ 

60  PRINT'«  0  -  OPTRGE  LRRN' 

70  PRINT'«  B  -  AFBETALE  LAAN* 

80  PRINT'*  S  -  SRELGE  /  LISTE  HESTE* 

90  PRINT'*  R  -  L0E8E  NRESTE  LOEB * 

lOO  PRINT*««  «/RVN!->f»*»  1 

110  PRINT’«  B-'ONTANTER«  *»PE 

ISO  PRINT-*  ■  RRNTl * l PL 

130  PRINT-*  «*NTAL  LOEB  LOEBET  »  *  )  SL 

140  PRINT-«  »sNOTRST  VRLG  t  *M  GOSUB60060  | - 

130  I  PRR*  *R  *  TMENG0SUBS60  s  GOT030  F 

160  IFA*- *0*THENGOSUB4 I0»G0T030 

170  I  FA*-  *B " THENG0SUB3 10  »  G0T030 

180  IFAS-*S*THENG0SUB6I0»G0T030 

190  IFA*-  *R “THENG0SUB760  *  GOT030 

SOO  PR  I  NT -CH3*  »GOTO  1 40 

SIO  END 

S60  PRINT-J«-  k 

S 70  FOR  I ■ I  TO  10  ™ 

S  73  IFI<  10THEF*>RINT*  -JIMG0T0283 

S80  PRINT  11  fm 

383  PRINT*  «*  *  HN»<  I  >  ***  L 

390  KCXTI  JE 

300  PR  I  NT  **^  NO  TAST  N)  .* J  » GO SU 860060  H 

310  IFR<  1 ORA > 1 0THEN260  |“ 

3S0  PRINT-«  IESTENS  GAt*.E  NRVN  ER  »  "  J  HN*<  R  >  jrr ~ 

330  I  t#*UT  *  -.f^TAST  NYT  NRVN  *  I  HN*<  R  ) 

340  IFLEN<  HN*<  A>>>I8THENPRINT*-0R  LANGTCD*  » G0T0330  ™ 

343  !FLEN(  HNW  R>><  ISTHEKHN*  A  > -HN*<  A)**  •  l  00T0343 

330  PR INT * -LERE  RENDR INGER *>» G0SUB60060 

360  IFR*<  >  * J  * THE NRE TURN 

370  G0T0S60 

410  PR  I  NT  "  »J«f~E NO E  I  BRNCENl  *  >PE 

430  PRINT-BTNGE  LRRNT  l*»PL 

430  PR  I  NT  **J,  NO  TAST  LRRN* t  l G0SUB600S0 

440  IFRBSC A)*PL >230000THENPR I NT *-IN  KRSSEKREO I T  ER  PRR  330.000  KR  *  <  GOSUB600 1 0  >  GO 
T04I0 

430  PE-PE  *ABS< R ) «PL-PL*ABS<  R  >  »RETURN 

310  PR  I  NT  •  J«T  NGE  I  8RNCENI-IPE 

320  PRINT-«-ENGE  LRRNT  i  *  >  PL 

330  PR|NT-B*.NOTRST  RF BE  TRL  I NG  *  I  »  G0SUB60060 

340  IFPL-RBS<  RXOTMENPR  INT-»-OR  STOR  RFBETRL  INO *  »  G0SUB600  10 «  G0T03  10 
330  PE-PE -RBS<  R  > »  PL -PL -RBS< A>  »RETURN 
610  GOSUB 10403 

630  PRINT-**  NOTAST  NR  PRR  HEST* 

630  PRINT-OER  SKRL  SRELGES « * > « G0SUB60060 

640  IFA-0THEN730 

630  IFR<  OORR  > IOORE R  > -0THEN6  10 

660  IFSYC  A  >  •  1  THENPR  INT*  IESTEN  ER  SYG  -  INGEN  VIL  KOEBE  DEN* »G0SUB600 I0»G0T06 10 
670  TL-HV<  R>-<  HS<  R)*3000>*  INT(  RN)<  1  )  •  1 0000 *HS<  R  >  > 

680  PR  I  NT  *  m~~£  R  ER  BUDT*  >  TL I  *KR  .  PRR  ->HN*<R)«B-R 
690  PR INT *#CCEPTERER  DU  0ET*>  »G0SUB60060 
700  |FR*<  >* J*THEN7S0 

710  IL<  B ) -O  »E J<  B  >  -O »  PE -PE  *TL  »  SY< B  > -O  «  GOT073O 
730  I F  RND(  1  >  >  .  4  THENS  Y<  B  )  ■  1  I  I  L(  B  >  ■  O 
730  RETURN 
760  SL-SLM 

770  PR  INT  -  JMU  OENhC  UGE  ER  LOEBET  «-:PR|NT*  *)TB*<SL> 

780  PR  I NT  *  ««_G  E BE  TS  SVRERMEOSGRRD  »  3*  »  TSC  SL  > 

790  PR INT  'tBb  -  IFOR  RT  UOTRGE  RNDRE  HESTE.* 

800  PR  I  NT  *  PM  -i  1  FOR  RT  FORTSRETTE* 

BIO  PR  I NT  *  «%  NOTAST  VRLG * l  » G0SUB6O060 
8S0  IFA*- *R “THENGOSUB 106 10  »  G0T0770 
830  GOSUB 1 0403  »  I FHL- 4 THENGOSUB 108 10«G0T0770 
833  IFHL<  3RN0EH -< S*HL  >  >OTHENA*- -R  *  »G0T08S0 
833  PRINT'J- 

840  FOR  I ■ I  TO  10 «  AS<  I > "O  — 

830  IFE  J<  I  )  •  I RNO  1L<  I  )  •  I  TMENRS<  I  >  -HS<  I  )  48  «HE<  I  >  •  INT<  RM)(  1  )  »  10  >  ■ 

860  hCXTI  p 

870  F0R1-1T03 

873  M-INT<R«)<  1  >tlO)*l«  IFE J<  M>  -  I THENB73  T 

880  RC<  I  >-TS<  SL>«8*HE<M)-3*INT<  RNO<  1  >«10>  A 

890  NEXTI  y 

900  B-0  *  FOR  I ■ I  TO  10 

910  IFRS<  I  >  >ORNORS<  I  >  >RS<  B  >THEr«-I  Q 

930  fCXTI 

930  C »O »FOR I • I T03  R 

940  IFAC<  I  )  >AC<  C  >TWENC  ■  I 
930  NEXTI 

933  M-|NTCRNO<  I  >  •  I O  >  *  1  *  IFE  J<  M>  »  I  THEN933 

960  IFRS<  B  >  >RC<  C  >THEf*.S-233  »LC-233-<  RS<  B  >  -RC<  C  >  >«S 

970  I  FRC<  C  )  >RS<  B  »  TMENLC  -833  « LS -S33  -<  RC<  C  >  -RS<  B  >  >  «8 

980  IFRC<  C  >  -AS<  B  )TMENRC<  C  >  -AC<  C  )  ♦  INT(  RhC(  1  >  •  10  >  *  RS<  B  )  -AS<  B  )  ♦  INT<  RMJ<  I ) • 10 > » G0T09 
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■  Her  er  så  et  computer-styret 
DERBY-spil  til  Commodore  64. 
I  spillet  kan  du  både  komme 
ud  tor  sygdom  blandt  hestene 
og  økonomiske  problemer. 
Reglerne  er  kort:  Til  hvert  løb 


skal  udtages  3  heste,  hvis  det 
er  muligt.  Syge  heste  kan  ik¬ 
ke  udtages.  Efter  hvert  løb 
forelcegger  computeren  et 
regnskab  med  udgifter,  ind¬ 
tægter  og  den  samlede  ba- 


60 

990  IFLS-233TH£NSP-SP*TS<  SL  > 

1010  IFSP< ITHENSP- 1  ' 

I OSO  G0SUB70 I O 
1030  POKEV ,80*P0KEV*2 ,20 
1040  POKEV ♦ I , 193 « POKEV *3 , 1 93 
1030  POKEV *4 .SO »  POKEV  *6 .SO 
1060  POKEV *3 . I 33 »POKEV *7 , 133 
1070  POKEV ♦ 16 .0  »  POKEV  *23,0 
1080  POKEV *29, O »POKEV *87 ,0 
1090  A-  INT<  RND<  I  )  *4  >  ♦  I 

1100  POKEV *4 1 , CF<  I.R>»P0KEV*4S.CF<S,R> 

1110  POKEV ♦ 39 , 3  «  POKEV*40 ,0 

1 120  POKEV *8 1 , 13 

1 130  LI-20ILS-S0 

1140  L I -L I ♦ INT<  RND<  I ) *4 > 

1130  LS-LS* |NT<  RhO<  l>»4> 

1160  IFL1 >LSTHENLI-LS 
1170  IFLS  >LC  THEM.8-LC 
1180  POKEV .L I » POKEV *S , L 1 
1190  POKEV *4. L3» POKEV *6, LS 
ISOO  IFL1-8330RL8-833THEN1830 
ISSO  GOTO  I  140 

1230  G0SUB60010IPRINT- J**CHR*< 9  )  >  CHR*<  1 4 > » CHR*< 8 ) » POKEV »S  1 ,0 
1240  |FL1-S33THEN>R1NT*-|N  HEST  VArø  T  JMMNMS1"  :  HMK  8  ) 

1230  IFLS "233THE NPR  INT”  — |  \-64  HEST  VRr-O  '■*■■■■!  i  Hf-<S<  M) 

1260  P0KE33S80 ,0  »  P0KE3328 I ,0 » G03UB600 10 
1870  RF- INTf  RNO'  l  >«  1000)*  1000 
1880  PT-1NT<RNJ<  1  )  •  1 000  >  »S300 
1290  RS- INT< RND<  I >• 10001*300 
1300  RR- INT< PL *0.003) 

13  10  IFL I -833THENRP- INT<  TS<  SL ) *  1000* IOOO*Rf®<  1)> 

1380  IFLI<  >233THEWP- INT<  T3<  SL>*3O0*RNO<  1  >  > 

1330  PRINT-j**  U-OOERUDG IFTER  »-)PF 

1340  PRINT-*  t  PRN3P0PTU0G IFTER  »  “ J  RT 
1330  PRINT**  RTRLDLEJEi  *  I RS 

1360  PRINT**  -ENTER  PRR  LRRNJ  *  I RR 
1370  P 1 -RF  »RT *RS  *RR 

1380  PRINT*« - * 

1390  PRINT*  RRMLEOE  UDG IF  TER »  *»R1 
1400  PRINT-«J  “FREMIE  IKOTREGTJ  *)PP 


1410  R8-RP-RI 

1420  PRINT**  BPRM.EDE  BRLRNCE  I  *  »  R8 
1430  PE-PE *R8 

TWty  •TPRTr{jremGosuB  10310 

1430  PR  INT  -JHkJI  RTK  «_-|  f-.'WT  I  »G0SUB60060 
1433  EH-0 1  FOR  I • I  TO  10 « IFE J<  I >• I  THE NEM -EH* I 
1436  rCXTI 

1 460  I FEH-3THENGOSUB33eO »  G0SUB600 I O  » GOTO  1 640 
1470  C-  JNT<  RtCX  1>*10>*I 
1480  IFE J<  C  >■ 1THEN1470 
1490  B -MV< C  > 

1300  PR  I  NT  •  jum  BANKEN  HRR  DU »  •  »  PE  »  “KR  .  “ 

1303  PR INT-«*_OELGENOE  HEST  UDBYDES  TIL  SRLG «  • 

1310  PRir-IT'I«  /1RVN  RTYRKE  “TÆRG I  XRERO I  * 

1380  PRINT-J  *  I  HNK  C  »  I  "  *»HS<C>;*  “IHE<C>I"  *IB 

1330  PRINT-***  rJOTRST  BUO  ELLER* 

1340  PRINT-TRYK  «_“|  FOR  RT  FORTSRETTE  * 

1330  PR 1NT-*IU0«  *  »  »G0SUB60O60  »  I -O 
1360  IFR-OORR*- *  *THENI640 

1363  G-B-HS< C >*800*INT< RNO<  1  * «SOOO«HS< C ) > 

1370  IFR>GRf«R< -PETHENI-1 
1380  IF I -0THEN1680 

1390  PRINT-HB-U  HRR  KOEBT  *»HN*<C) 

1600  PE-PE-RiEJCO-1  »  IL(  C  >  -O « SY<  0-0 
1610  GOSUB600 10 »GOTO  1640 

1680  PR  I NT  *  ! T  BUD  ER  RFSLRRET*  »G0SUB60OI0 

1630  B-B  *HS<  C ) *  1000  » GOTO  1300 
1640  FOR  I  -  I  TO  10 

1630  IF IL<  I ) ■ I TWCNHE<  I  )-HE<  I )- INT<  Rr«<  I ) *4 ) 

1660  IF  IL<  I  )  *OTHENHE<  I  >  >HE<  I  >  *  !NT<  RN3<  I  >  *4  >  *4 
1670  IFHE<  I  X  ITHENHEC  I >»1 
1680  IFHE<  I  >  >80THEr*<E<  I  >-20 
1690  SY(  I >-0 

1700  IFRND<  1  >  >  .  9TMENSY<  I  )  ■  I  I  IL(  I  >  -O 
1710  ÆXTI 

1780  I FSL -  I OTHENGOSUB 1 0  I  1 0 
1730  POKE33878 ,2 1 

1740  PRINTCHR*<  9);CHR*<  14  )  ;  CHR*<  8  )  »  RETURN 
3010  !«Rr*>(  -TI  >«FORI-lT010 
3080  READHN«  I  )  I  IL<  J>-0«SY<  I>-0 
3030  fCXTI 
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iance.  udbetales  en  sæsonbonus. 

Hvis  spillerens  økonomi  ait  efter  hvor  mange  løb  spil- 
skranter  for  meget,  kan  spille-  leren  har  vundet.  Vinderen 
ren  optage  et  ldn,  men  der  fdr  et  kys  af  Dronning  Margre- 
må  selvfølgelig  betales  ren-  the.  Woww  .  .  .  □ 
ter.  Nær  sæsonen  er  færdig  Anders  Møller  Sørensen 


3040  OATA'ILUE  | IRO  * , *  IELL0W  -AT  “,*|LACK  >ACK  • 

3043  0ATA*_£0  -vhO  I  AN  •  ,  *_!ASCO  * , ‘LQSER 

3030  OATA-.AST  -  -  ,  *  IOT  -OO  *,*-0X 

3033  OATA’*C IENCE 

3060  OOSUB 100 10 

3070  P0KE33280 , 0  * P0KE3328 I ,  O 

3080  PR|NTCHR*<  14>)CHR*<8> 

3090  ir^UT'wJBOKt^TRST  O  IT  NAVN 

3093  PRINT-J*  t  1FLENI  MN*>  M2THEN3090 

3100  A-|NT<RND<  I  >  •  10  >  ♦  1 1 E  J<  A  >  •  1 

3110  EH-0  i  FOR  I • 1 TO  10 

3120  IFEJ< I > ■ I TWENEH-EH* I 

3130  tCKT  I 

3140  IFEH<  4 THE  NS  100 

3130  I FEM  >4 THE  NF  OR  I • 1 TO  10 ■ E J<  D  -O  i NEKT I  i 00T03 100 
3160  FOR  1*1 TO  10 

3170  REAOTB«  I  )  t  TS<  l)-INT<RND(  1>«19>*2 
3180  rCXTI 

3190  OATA’PAA  8K0VB0  I RAV8ANE ’ , "PAR  I ILLUNO  I  RAVBANE  * 

3200  OATA’PAA  rOENSE  I  RAVBAfsE  *  ,  *PAA  *ARHUS  I  RAVBAf^C  * 

3210  OATA'PAA  -MARLOTTENLUNO  | RAVBArC  ' , "PRR  /YKOEBING  -ALSTER  I  RAVBANE  * 
3220  OATA "-ERBYPOERVEN* ,  *PAA  »ÅLBORG  I RAVBAr«  * 

3230  OATA'PAA  IJAEVERSKOV  I  RAVBANE  - , " -ERBY ■ ET* 

3240  OIMCF<  2,4) 

3230  FOR  I ■ 1 T02  c  FORA- 1 T04 
3260  REAOCF< I  ,A> 

3270  f«XTA  ,  I 
3280  OATAO ,6,9, 14 
3290  OATA  I ,7,3,4 
3300  V -5324B « PE -  100000 
3310  SP-OiSL-OlPL-OlHL-OiLS-OiLC-O 
3320  LI •O«L2"O»RF-0iRT-0«RS-0iRP-0 
3330  RR-0IR1-0IR2-0 
3370  RETURN 

3380  PRINT'JMhU  KAN  PGA .  DE  INTERNATIONALE  REGLER* 

3390  PRINT* IKKE  KOEBE  FLERE  HESTE  *  i  RETURN 
3310  B-OIF0R1-49132T049I94 


3320  REAOAiPOKE I  ,AiB-B*A 
3330  FCXTI 

3340  IFB<  >3334THEt*>RINT*0ATA  ERROR  I  3340"»END 

3330  0ATAI20, 1 69 , 49 , 1 33 , 1 , 1 69 ,0 , I  33 ,98 , I  33 , 1 00 . 169 ,208, I  33 , 99 , 169 ,48 , 1 33 , 10 1 
3360  DATA  162, 16 , 160 ,0 , I  77 ,98 . 143 ,100,200,208,249,230,99,230, 101 ,202,208,242 
3370  OATA 169, 33, 133, I  .88.96 

3380  SYS49 132  i  P0KE33272 ,( PEEKt  33272 »AN0240 >0R 12 
3390  B-OiFORJ- 1T022 
3600  REAOCtB«B*C 
3610  F0RI-0T07 

3620  READAiPOKE 12288* I *C *8 ,233-A 
3830  B  -  B  *A  i  KCXT  I  ,  J 

3640  !FB< >2004 1THENPR INT’OATA  ERROR  I  3640’iEf« 

3630  OATA 1 19,0, 129, 193, 163,231 , 102, 193, 129 
3660  OATA 109, O, 24 ,60,90, 126, 102,60,24 
3670  OATA I  12,0.7, 13,24 ,48,99, 196,200 
3680  DATA  127, 0, 128,192,97,49,133,77,13 
3690  OATA 124 ,0,0,234 ,233, 131,131,131 ,233 
3700  OATA 108 ,0,0 ,96 , I  12, 120, 109, 103,98 
3710  OATA 1 13,0,0,31,1 19,246 ,182,34,33 
3720  OATA 123,0 ,0,248,232 ,4 ,0,0,248 
3730  OATA 1 23 , O , O , 207 ,207,204, 204 . 204 , 207 
3740  OATA I  16,0,0,231,231,102,102,102,231 
3730  0ATA98 ,0,0,243,243,31 ,31,31 ,243 
3760  OATA I  17,0,0,240,240,0,0,0,240 
3770  OATA97 ,200 , 196,99,48,24, 13,7,0 
3780  OATA 1 18,13,77,133,49,97,193,128,0 
3790  OATA 103, 233, 131,131,131,131,131,0,0 
3800  OATA 106, 96, 96, 96, 96, 96, 96, O. O 
3810  OATA 121 ,31 ,48,48,32,33,31 ,0,0 
3820  OATA 1 1  I ,232, 12,12, 12.232,248.0,0 
3830  OATA 107, 207 , 192 . 192, 192. 192 , 192 ,0,0 
3840  OATA I  14,231,102,102,102.103,103,0,0 
3830  OATA 1 10,243.48,48,48,243,243,0,0 
3860  OATA 120 ,240.48,48 ,48,240,240 ,0,0 
3870  B-0  i  FOR  I -704T0766 
3680  REAOAIPOKE I ,AiB-B*A 
3880  fCMTI 

3900  !F8<  >3923THEI**R  INT'OATA  ERROR  I  3900  *i  END 

3910  OATAO ,0,0, 0, 0, 0, 0, 0, O, 0, 2, 0, 0, 1 ,0,0,0.224 ,0,0,240,0, 1,144,0,1  ,240,31 ,233 
3920  DATA208 , 127,233 ,208 .191 ,233, 192,191 .233, 192, 139,233, 128 , 132 ,4 ,0 ,2 ,2 ,0 , I , 1 
3930  OA TAO, 2, 2, O, 4, 4 ,0 ,8 ,8 ,0 ,0 ,0 ,0 

3940  8 "O  i  FOR  I -832T0894 
3930  REAOAiPOKE! , Al B-B*A 
3960  fCXTI 

3970  IFB<  >997THEr*»RINT*0ATA  ERROR  I  3970*i£N0 

3980  OATAO, O, O. O, 16 ,0 ,0 ,36 ,0 ,0 , 16 ,0 ,0 , 32 ,0 ,0 , 104,0.0.244,0,0. 192 .0 . 1 , 128 ,0 ,0 .64 
3990  DATAO, O, 32, O, O, 16,0,0,32,0,0,64,0,0,0,0,0,0,0,0,0,0.0.0.0,0.0.0,0,0,0,0,0,0 
6000  P0KE2040 , I  I > P0KE204 1  , 13IPOKE2042, I  1 IP0KE2043, 13 l RETURN 
7010  POKE33272 , < PEEK< 33272 )AND240 >0R 12 

7020  AR«  *  - - -  . . .  *  * - 

7030  8*-*  luumuuuuuuiLuuuuimiiuH* 

7040  C«-*  r*.*r^Jl  må  *  iO*-*|  |!L-Fn** 

7030  PRINT'J*) 

7060  POKE33280, I0IP0KE3328I , 10 
7070  FOR  I • 1 T03 

7080  A-INT<RNO<  I ) • 13 > ♦ I  i P0KE646 . A i IFA- I00RA-3THEN7O80 
7090  PRINTA*! 

7100  A-INT<  RNO<  I ) • 13 ) ♦ I IP0KE646.AI IFA- 100RA-3THEN7 100 
7110  PR1NTBR) INEXTI 

7120  PR|NT-q-»C*JC*l C*»C*>0*>0*»0»)0* 

7130  FOR  1 -2T0 1 3  *  POKE 1433* I *40, 101  i P0KE33727 ♦ I »40 , I ih«XTl 

7140  RETURN 

10010  FOR  I • 1  TO  10 

10020  HC<  I  > - INT<  RND<  l)*20)*l 

10030  HS<  I  )  ■  INTC  RNO<  1  ) *3  > ♦  I 

10040  HV<  I  > -H8<  I  )  *20000 

10030  TS<  1 ) - INT<  RNO<  I > • 19  >  *2 

10060  rCXTI 

10070  SL-0 » RCTURN 

101  10  PR  I  NT  'tJBi*  TAB<  10>*H»AES0hCN  ER  SLUT.* 

10120  PRINTTAB<  IO)*~U  SCOREOE  *  I  SP I  *SAES0N»0  INTS .  * 

10130  IFSP  >  I  30THEf'B«300 
10140  IF8P>ll3THErsB-130 
10130  IFSP  >  lOOTHEt-B-  120 
10160  IFSP  >70THEf«-  100 
10170  IFSP  >30THEf®-70 
10180  IFSP< -30THENB-30 

10190  PRINTTABI  IO)*B  IN  SAESONBONUS  ER  H*>B«IOOO 
10200  PE -PE  *B* 1000 

10210  PRINTTAB<  IO)*l  RYK  M_“1  ,VM*iO0SUB60O60 
10220  PRINT'J* 

10230  OOSUB I OO  10 
10240  SP -O  i SL-0 
10230  RETURN 

10310  PRINT*J*TAB<  IO)‘*f-U  ER  OAAET  FALLIT* 

10320  PRINTTA8«  10>*»/YT  SPIL  * » i 00SUB60060 
10323  PRINT*U*» 

10330  IFA*-*J*THEI'»»UN 

10340  IFA*-*N*THEN»0KE33280, 14IP0KE3328I ,6iEND 
10330  GOTO  103  10 

10403  PRINT*J*B_i  UOTAOET  Si  SYG«* 

104  10  HL -O  *  S -O  i  PR INT  *H/AVN*TAB<  I3)*/R  »TYRKE  TCRG 1  XAERO IH* 

10420  EH- 10 1  FOR  I • 1  TO  10 

10430  IFEJ<  I »-OTHENEH-EM-I i  GOTO  10330 

10440  PRINT*H*»HN*<  I  >1  I  IFILt  I  >-  I  THEN«. -HL*  I 

10430  IF  |<  IOTHEN»RINT*  *  1 1  i  GOTO  1 0470 

10460  PR  1 NT  1 1 

10470  PRINT*  *HS<  1)1 

10480  IFHE<  I  X  I0THENPRINT*  *  I HE<  I  ) l i GOTO  1 0300 

10490  PRINT*  *HE<  Dl 

10300  IFHV<  I  X  IOOOOOTMEN»RINT*  *  I HVC  I  )  I  I  GOTO  103  10 
10303  PR 1NTMV<  1 >1 

10310  IFIL<  I  )  -  IANDSYC  I  )-OTHEM>RINT*H  L*l 
10320  1FSY<  I ) • 1  THE  NPR  1 NT “ ■  S'l  IS-SM 
10323  PRINT 
10330  KCXTI 

10340  PRINT****NTAL  MESTE  DER  ER  UOTAOET  *IHL 

10330  RETURN 

10610  OOSUB 10403 

10620  IFHL< -3THENG0SUB 107 10 

10630  IFHL-4TMENGOSUB 1 08 10 

10640  IFA*- * ‘ANJA- O  THE  NI  06 10 

10630  RETURN 

10710  PR  I  NT '■■INDTAST  NR  PAA  HEST* 

10720  PRINT-OER  SKAL  LOEBE *  I  i G0SU860O60 
10730  IFA  >  10QRA<  OTHENPR  1NT  *fTTm*  i  GOTO  107  10 
10740  IFA-OAf-OA*-  "  'ANDHL-3THEN10790 

10730  IFEJ< A) -OTHENPR INT — U  EJER  IKKE  OETTE  N*. * IG0SU860OIOIG0T0I0790 
10760  IFIL<  A)-ITMEN»RINT*  IESTEN  ALLEREDE  UDTAGET  .*  t  G0SUB600  lO  i  GOTO  10790 
10770  IFSY<  A>-1THEN*RINT*  IESTEN  ER  SYG  .*  i  G0SUB600  10 1  GOTO  10790 
10780  IL<  A  > •  1 
10790  RETURN 

10810  PR  I  NT*  ro  TAST  NR  PAA  HEST* 

10820  PR INT'OER  SKAL  STAA  OVER  * » i G0SUB60O60 
10830  IFA<  -0QRA>10TH£N»R  INT  TTTV  I  GOTO  108  1 0 

10840  IFEJ< A)-OORSY< A)-10RIL(  A  > -OTMEN>R  INT ** IOOER  I  FORVE JEN  OVER .* i G0SUB600 lO i  G 
OTO  10860 
10630  !L<  A  > -O 
10860  RETURN 

60010  FORI-ITOlOOOltCXTI 
60020  RETURN 

60060  I*-  "  *  i  A*-  *  *  I A-O  l  IN’UT  I  * 

60070  A-VAL«  I* ) t A*-LEFT*C  I»,l> 


60080  RETURN 
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Fakultet 


I  dette  Commodore  64  mate-  linierne  tra  1  OO  til  1 40  indtastes 

matik  program  får  du  bereg-  og  undersøges  det  tal.  som  lå¬ 
net  fakultet  af  et  stort  tal .  Prog-  kultet  ønskes  beregnet  af . 

rammet  benytter  sig  al  logarit-  Hovedløkken  ligger  fra  200  til 
mer  til  beregningen.  240.  Den  beregnede  værdi 

I  linie  70  defineres  titals  logarit-  omskrives  og  udskrives  i  linie 
men.  som  ikke  lindes  som  300  til  410.  Fejludskrifterne  lig¬ 
standard  funktion  på  de  fleste  ger  fra  1 000  til  2000 . 

computere.  Programmet  kan  let  omskri- 

Linierne  80  og  90  nulstiller  de  ves  til  andre  maskiner. □ 
variabler,  som  bruges  til  at 

summere  de  beregnede  tal .  I  Torben  Bang 

10  PRINT-J":  REM  ***  SLET  SKÆRM  *** 

20  PRINT 
30  PRINT 

40  PRINT"  FAKULTET  MED  STORE  TAL" 

50  PRINT 
60  PRINT 

70  DEF  FN  L10< X)=L0G< X)/L0G<  10) 

80  EXSUM=0 
90  MANSUM=0 

100  INPUT"  INDTAST  N  ”  )  N* 

110  1F  N*="STOP"  THEN  ENO 
120  N=VAL<N3>) 

130  IF  N  <  O  THEN  1000 
140  IF  NO  INT<  N)  THEN  2000 
150  PRINT 

160  PRINT  “  TAL  OK  BEREGNINGEN  BEGYNDER  NU" 

170  PRINT 

180  PRINT"  VENT  ET  ØJEBLIK* 

200  FOR  X  =  1  TO  N 
210  L  =  FN  L10<  X) 

220  EXSUM=EXSUM+INTC L) 

230  MANSUM=MANSUM+L- INT(  L ) 

240  NEXT  X 

300  EX=  EXSUM+ INT<  MANSUM) 

310  MAN= 10 t< MANSUM- 1NT< MANSUM) ) 

320  MAN*<  INT< MAN* 10000+0 . 5 > )/100O0 
400  PRINT 

410  PRINTN) "FAKULTET  =  " ) MAN) *  E  ")EX 
500  G0T050 
1000  PRINT 

10 lO  PRINT"  ULOVLIG  VÆRDI  N  SKAL  VÆRE  POS.” 

1020  G0T050 


Amrace 


■  Amrace  er  et  racerbilsspil 
for  to  kørere.  Kører  1  styrer 
med  X  og  Z.  accelererer  med 
C  og  bremser  med  V.  Kører  2 
styrer  med  .  og  ,  accelererer 
med  /  og  bremser  med  \  . 
Hver  gang  man  har  kørt  en 
omgang,  får  man  et  point. 
Hvis  man  kører  ind  i  kanten, 
skal  man  starte  forfra.  Selve 
kørslen  foregår  meget  mere 
naturtro  end  sædvanligt  da 
bilerne  udnytter  Amstrads 
mulighed  for  at  køre  fra  pixel 
til  pixel.  I  stedet  for  det  sæd¬ 
vanlige  -  et  tegn  eller  8  pixel. 
□ 

Claus  Thorsen 


AMSTRAD 


460  3%(.  1  )= 

1 '  v  v  v  v  v  y  v  y  y  y  v  v  v  v  v  v  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y 
V  V  V  V  V  V  V  V  v  V  V  y  y  v  y  v  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y  y 1 

•  ■■  #■  ••  ■-  B-  B  *  B-  B-  B  ■  B'  B  -  B-  B  -  B  -  B'  B-  •'  B  -  B  -  B  '  B  *  B'  B  B  ••  B'  B'  B'  B'  B  1  B'  S1  B 

b<,b,.b/b.i«/ i  m.m.m.m, 

/»'/BV«rii  **B  *u  ’w '  B  •'b  •'  s 


47ø  3.*(.  2>= 

li  y  y  y  y  y 

yyyy  y  yyy  y 

xxxx  \y.  xxxxxxx  xx 

XXXX  XXXXXXXXX  X  X  X  XXXXXXXX  "<  XXX 

xxxx  xxxxxxxxxxxxxxxxxxxxxxxxx 


430  a$< 3  >= 

»•yyy  yyyyyyyvyvyvyyyyyyyyyvyyyv 

•  B-  B  -  •  'B-B-aas-B'B'a'B/B-a‘B'a-a-s-B-a-a-B/B-B‘B-s*B*a-s-B 

vyy  yvy yyy yyyy  yyyyyyyyy 

"  B  ■’  B  "  B  ■■  B  ''  B  -B  /  B  '  B  **  B  *'  B  •  B  B  *"  B  *’  B  ''b  B  ■  B  ■  B  '  S 


yyy.  xxxxxxx 
XXX  xxxxxx 

y  « 

490  j.*C4>= 

(iyy  yyyy., 

yyy  yyyy 

yyyy  yy 

vvvvy 

%*£*-£*£%'  " 

V1 


b  "'."b  "b"b"b"b 


yyy 

yyy yyy 


"i  "xb  "i  ‘  b  ’  £  X  *  £ "  £  "£ "  £  ’■  "•£ 


500  a$(5>= 

||  B^lyB.B  .B,.B,  B  By  By  B  .  By  B  .  B  ..  »y  ■  .■  »_,■  •  .•  ».•  ■  By  ■  »...  B  . 

B  *  S  ■'  B  *  B  •“’b  •'  B  •'  B  •’  B  ^  B  •’  B  ■■  B  ■’  B  B  '  B  •'  B  •"’b  B  •'  B  •'  B  ''  B  '  B  •'  B  B  ‘^B  B  •*  B 1 

B  B  .  B  .  B  .B.B  .  B  .  B  .  B  .  B.  8  .  ■  .  8  .  B  ,  B  .  8  ,  B  .  B  .  B  .8  .B.B  .S  .S  ,B  .S  .8  .  B  .8  .8  B  8  .8  8.8 

i  .-ii  .i  /.  'i  y x  xxxx/.x\x  /,  4  \  x s,  ■.  x  /.  ■.i.i'i 

us  ‘*sms  y  y  * 

■’b  •'  B  -"b  •'*8  •■"b*’b  B  •■’b -‘’b -'b  •’B  •'  8  •  B  ‘  B  'b-'B  ^  B  ’B  -’a  ''b  -'b  -'"b  '  B'  B  ■'  B  •'  B  •*  B  -  B  -'b -‘b  ^B -'‘b  ■’b  ‘‘b  ,-B 

y  y  vyy  vv  V  V  V  y  V  V  ■ ■■  V  V  V  V  y  v  y  y  y  y  v  y  y  y  y  y  y  y  y  yyy 
v  y  v  y  v  y  y  y  y  y  '/vyyv.-yyyy*'  V  y  y-  y  y  y  y  y  y  y  y  y  y  •  y  y 


2000  PRINT 

2010  PRINT”  ULOVLIG  VÆRDI  N  SKAL  VÆRE  HELTAL 
2020  G0T050 


510  CLS 

520  PEN  I  FØR  x=l  TO  5  PRINT 
53ø  RETURN 
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5  DEFIHT  R-Z 

10  SYMBOL  FlFTER  32 

15  SYMBOL  RSCC  "5i"  >,255/2! 


I  ...I ..  J  Zf  .« 


255,255,255,2 


rr-e;  o  c:  c; 


.  &X  11011011,  &X  1 1 000 ,  feX  11011011,  &X  11111111,  &X  1 


20  SYMBOL  255, &X1  løl  løl  1 ,  ScXl  1111111. 
løl 1011, &X1 løøø 

3ø  SYMBOL  254 , 8.X  1 1 000 , &X  1101 1  øø , ?<X  1 1 1  øøøø , &X løl  1  løl  1, &X  1  løl  1  løl, &X  1  øø  1110, 8.X  1011 
1 , &X1 lølø 

4ø  SYMBOL  253 , &X 1 1 løl 1 lø , &X 1 1 løl 11 0 , &X 1 øøø 1 øø , &X 11111111, ««X 11111111, &X 1 000 1 00 , &X 
1  lløl  llø,  &X1 1  løll  lø 

5ø  SYMBOL  252, &X1 101ø,iXløl 1 1 , &X1001 1 18, &X1 1011 101 , fcXløl 1 løl 1 , &X1 1 løøøø, &X1 10110 
0,&X 11000 

6ø  SYMBOL  25 1 , &X 1 1 000 , &X1 1 ø 1 1 ø 1 1 , &X 1 1 1 1 1 1 1 1 , &X1 lø 1 lø 1 1 , &X 1 1 øøø , &X 1 løl 101 1 , &X 1111 
1111, 8<X  llølløll 

7ø  SYMBOL  25ø ,  &X  løll  øøø ,  8,X  11101  øøø ,  Z-.K  1 1 1  øø  1 0 ,  &X  1 0 1 1 1  ø  1 1 ,  &X  1 1 0 1 1 1 0 1 ,  &X  1 1 1  ø ,  &X  1101 
lø, &X lløøø 

8ø  SYMBOL  249, 8tXl  110111,  &X1 1  løl  1 1 , ?,X  1  øøø  1  ø ,  &X  1 1 1 1 1 1 1 1 ,  &X  1 1 1 1 1 1 1 1 , &X  1 800 10 , *X  1 1 1 0 
111, &X1 1 løl 1 1 

9ø  SYMBOL  248, &X1 1000, &X1 101 lø, &X1 1 lø, &X1 101 1 101 , ScXløll løl 1 ,&X1 1 løølø,feXl 1 101000 
, &X1011000 
llø  INK  1,9 
MODE  1 
GOSUB  45ø 
RESTORE  16ø 

FOR  i  =  l  TO  8 : READ  x<  i  >,»<  i  >  =  NEXT 
DRTR  ø, 1, 1, 1, l,ø, 1,-1, ø,-l, -1,-1, -1, ø,-l, 1 

x  1  =22*  16  =  »1=13*1 6+4  =  ret-n  i  n9 1=7  =  x2=22*  16  =  s  2=  1 2*  1 6  =  retn  i  n92*7  =  fart  1  =  1  =  f ar  t2=  1  = 
LOCRTE  1,1= ox 1 =352  =  oa 1 =208  =  0x2=352  =  0+2=288 
W I HDOU# 1,15,30,1 ø ,lø= PEN# 1,2= TRG 
WIND0W#2, 1,40,1, 1 
PR I MT  CHR*C 22 ) ; CHR*< 1 > i 

v  i  rider  1  =0  =  v  i  nder2=ø  =  MO VE  21*1 6 , 4øø- 11*16  DRAW  2 1  *  1 6 , 4øø- 15*16,2 


WINDOW  SWRP  1 =  CLS  PEN 
WHILE  INKEY$< >" " =  WEND 
fl*=INKEY* 


12ø 
13ø 
14ø 
15ø 
160 
170 
180 
19ø 
2øø 
205 
210 
228 
23ø 
24ø 
25ø 
26ø 
27ø 
28ø 
29ø 
3øø 
31ø 
320 
330 
34ø 
37ø 
)=1 
38ø 
>=1 
385 
39ø 
4øØ 
428 

430 

431 

IF  fart 1 *x 1 < 
W  SWRP  1 ■ CLS 


3= PRINT  Pointn  = PEN  2= PRINT  Point2; = WINDOW  SWRP  1 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


a$="x" 

3.*="Z" 


retn  i  vi9 1  =8 
retnin92=8 
retnin9l=l 
retn i n92= 1 


THEM  retnin9l=retnin9l-l ■ IF  retnin9l=ø  THEN 
THEM  retnin92=retnin92-l = IF  retnin92=ø  THEM 
THEM  retnin9l=retnin9l+l = IF  retn i n9 1=9  THEM 
THEN  retnin92=retnin92+l = IF  retnin92=9  THEM 
I NKEY< 62  >=ø  THEM  fart2=fart2+l 
I NKEY( 55  )=ø  THEM  fart2=fart2-l 
I  MKEYv  3ø  >=ø  THEM  fart  1  ==f art  1  + 1 
I NKEY< 22 )=ø  THEM  fart 1 »fart 1 - 1 
x 1 =x 1 +x< retn i n9 1 >*f art  1 =  y 1 =y 1 - a  < retn i n9 1 >*fart 1 
x2=x2+x<  retnin92  >*f'art2  =  y2=y2~y<  retnin92  >*fart2 

IF  TEST(xl,y 1 >=1  OR  TEST< xl  +  15, y 1-15 )=1  OR  TESTC xl , y 1-16 >=1  OR  TEST< xl  +  16, a 1 
THEM  SQUND  1 , 0 , 2øø , 4 , 1 , 1 , 1  =  UH  I LE  SQ< 1 ) > 1 27  =  MEND  =  v i  oder 2= 1 
IF  TEST<x2,a2>=l  OR  TEST<  x2+15, a2-15 >=1  OR  TESTC x2, a 2-15 >=1 
THEM  SOUND  1 , ø , 2øø ,4, 1,1,1= UH I LE  SØC 1 >>127  =  WEND  =  v i nder 1 = 1 
IF  vinder  1  =  1  OP  vinder2=l  THEM  433 
MOVE  oxl, oal  PRIMT  " 

MOVE  ox2,o»2= PRINT  " 

PLOT  x 1 , a 1 , 3  =  ox 1 =x 1 =  oa  1 =a 1 
PLOT  x2 , y  2 , 2  =  ox2=x2  =  oa 2=a  2 
IF  xl+RBSC farti »21*16  AND 


OR  TESTC x2+ 15, a2 


PR  I  MT  CHR*c 256-retn i n9 1 >  > 

PR  I  MT  CHR*C 256-retn i n92 > ; 

x 1 <  =2 1*16  AMD  yl <4øø-l 1*16  AMD  »1 >400-15*16  THEM 
ø  THEM  v i nder2= 1 =  SOUND  1 , 2øø , 3ø  =  GOTO  435  ELSE  P o i nt 1 =P o i nt 1  + 1  U I MDO 
PEN  3  =  PR  I  NT  P  o  i  nt  1 ;  =  PEN  2  =  PR  I  MT  P  o  i  nt2  .=  =  U I  NDOM  SNAP  1 


432  IF  X.2+ABSC f ar t-2 »21*16  AMD  x2<  =21*16  AND  a2<4øø- 11*16  AMD  »2 >400-15*1 6  THEM 
IF  fart2*x2<=ø  THEM  vi nder 1=1 = SOUND  1,200,30= GOTO  434  ELSE  Point2=Point2+l  UINDO 
U  SWRP  1  CLS  =  PEN  3  =  PR  I  MT  Pointl.;  =PEN  2  =  PRINT  Point2,  =  WINDOW  SURF'  1 

433  I F  v i nder 1  =  1  AMD  v i nder 2= 1  THEM  x 1 =22* 16  =  91  =  12*16  =  retn i n9 1=7  =  fart  1  =  1 =  X2=22* 1 
6  =  y  2=  1 2*  1 6  =  retn  i  n92=7  =  f  art,2=  1  =  P  o  i  nt  1  =P  o  i.  nt  1-1  P  o  i  nt2=P  o  i.  nt2~  1  GOTO  2 1  ø 

434  IF  vinder  1  =  1  THEM  x2=22*16  =  »2=12*16  =  retnin92=7  =  fart2=l = Point2=Point2-l = GOTO 
21ø 

435  I F  v i nder2= 1  THEM  x 1 =22* 1 6  =  a 1 = 1 3* 1 6+4  retn i n9 1=7  =  fart 1  =  1 =  P o i nt 1 =P o  i nt 1 - 1 = GOT 
O  21ø 

440  GOTO  24ø 
450  DIM  a*C  25 ) 
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Brugerprogram 


BBC- 

B 


is  a£3iaiaiatataiaiaiaiai3iajai3 

saaaaiaiataaBiaasfaiaQg 

5Bia,a/s^asia/aiaasajajaja/SL 


■  Mastertile  er  navnet  på  det¬ 
te  kartoteks-program.  Det  star¬ 
tes  med  en  hovedmenu, 
hvorfra  resten  af  programmet 
kan  køres.  Det  er  selvforkla¬ 
rende  da  man  bare  taster  det 
ind,  programmet  spørger  om. 
Filerne  som  indeholder  den 
indtastede  data  (navn + firma 


+ disk  nr.  på  et  program),  kan 
save  es  på  diskette  men  pro¬ 
grammet  kan  konverteres  til 
tape. 

Her  følger  en  kort  beskrivelse 
af  de  let-overskuelige  proce¬ 
durer  som  er  brugt  i  Masterfi- 
le:D 

Christian  Ravn 


Masterfile 


li  ni«  10-999  s  Sølv«  hovedprogrammet  som  kalder  de  pagelende  procedurer, 
linie  1000-1999  s  Procin  klarer  indtastningen  af  data. 

linie  2000-2999  ;  Procout  klarer  udskrivningen  af  data  pa  skarm  eller 
printer.  Der  spørges  om  hvilket  data  der  skal  udskrives. (navn/firma 
/disc/alt) 

linie  3000-3999  :  Procsave  sørger  fo r  at  filen  kan  blive  gemt  pa  disc. 

linie  4000-4999  :  Procload  sørger  for  at  filen  kan  blive  hentet  fra  disc. 

lime  5000-5999  x  Procsort  sorterer  filen  enten  kun  efter  navn.  eller 
efter  navn/f  irma/disc  med  disken  som  1. prioritet  falende  til  navnet, 
linie  6000-6999  :  Procauit  stopper  programmet  for  altid  <IFX200,2>. 

lime  8000-8999  s  Procnew  vil  initialisere  en  ny  fil. Det  skal  du  altid 

gere  inden  du  save'r  en  NY  fil.  Ikke  nødvendigvis  hver  gang  du  save’r. 
linie  9000-9999  :  Procinit  klarer  bare  nogle  enkelte  variable, 
lime  10000-10999: Pr oc menu  skriver  hovedmenuen  ud. 

lime  1 1000-1 1999: Proc ton  skriver  AS  ud  oa  en  s»ov  made  øverst  oa  skarmen 
nar  der  er  brug  for  det. 

lime  1 2000- 12999: Pr ocswap  laver  en  trekantsombytning  af  to  sat  data.  Den 
kaldes  i  sorteringsrutinen,  hvor  den  bliver  brugt  mange  gange, 
lime  13000-13999:  Proc  bor  der  tegner  et  bl  at  felt  i  mode  ?  alt  efter  de  tal 
den  far  derfra  hvor  den  er  kaldt. 

lime  14000- 14999: Proc space  venter  pa  Space-Bar.  hvorefter  den  kører  til 
hovedmenuen . 

lime  15000-15999: Procdelete  vil  kunne  slette  et  indtastet  program  i 
filen. 

lime  16000-16999:  Procprinter  spørger  om  printeren  skal  bruges  og  i 
bekraf tende  fald  om  det  er  parallel  eller  seriel  ♦  hvilken  baud-rate. 
linie  17000-17999: Proc tab  udskriver  navn+f irma+di sc  tilhørende  det  tal  som 
følger  med  ned  i  proceduren,  pa  en  pen  made. 

lime  18000-18999: Pr ocammend  hjelper  dig  med  at  rette  i  en  indtastet  fejl. 
lime  19000-19999: Procnewline  venter  pa  tast  fra  Space-Bar  men  retunerer 
ikke  til  menuen  men  derimod  fortsetter  kun. 
lime  30000-30999: Proc fej  i  skriver  den  fe.,1  du  har  begået. 


Christian  Ravn 


)  REM  Master Se  tov  R*.#n*o<t  iC> 

*  FEM - 

:•  rem 

>  MODE  7 

‘  RR0CINIT 

>  0N  ERROR  PROCFEJL 

>  RfOCMENU 

>  PEREATG«GET-48:UNT1L&  0ANDG  10 

>  0N  &  &0SU&  120. 130. 140. 130. 140. 170. 100. 190.200  ELSE  RROCREJL 
:>  GOTO  00 

)  RROCOUT« RETURN 

:>  ppocammehdj  return 

)  RF.OCDELETE:  RETURN 
:■  RROCLOAD:  RETURN 

>  PROCSAVE: RETURN 
C’  RROCMEW i  RETURN 

>  PROCSORT:  FE  TUEN 
0  PROCIN: RETURN 

>  PROCOUITt RETURN 
C1  END 

“  REM - - - 


18  Soft  Special 


»000  DEF  PROC IN 

1010  RROCTOP'  "  INDTASTNING"  ' 

1020  RX-HAXX 

1030  PR I NT  TAB  <  3. 1 1 > l SPE ( 36  > l TAB ( - . 1 9 ) : SPC  <  2?  * 

1040  R7.-R7.*  1 

1030  PRINTTAB (0.10):“  HAVN  FIRMA  DIS)" 

1060  INPUTTAB '3.1Di* "NAME«  (F:7.)  s  TAB'  1°.  1 1 )  i  ”F|RM» <F:7.>|  TAB  '32. 11)1* “DISC7.  (R7.) 

1070  hax7.-max::*: 

1000  FR1NTTABC.  10)  :  "En  til"*  "i  :G*-GET«:  IF  G*«"J"  OF  6«-%*  THEM  1030  ELSE  IF  G«-"N"  OF 
G«-"n"  OF  ASC(G«>»13  THEN  10°0  ELSE  1090 
1090  ENCPROC 

1<?®9  FEM - -  - 

2000  DEF  PP.OCOUT 

2010  F-POCTOF- -UDSKRIFT- • 

2020  IFHAXX-O  THEH  PRIMTTABt 19.  19) i “Filen  er  tom1  “ IG0T02210 
2030  PROCBOftD€f:tl9.l9,16,3> 

2040  PRIHTTABM3.il)  l  "ALLE . 1* 

2030  RRINTTABMJ.  12-M*FRA  HAVN.. 2* 

2060  RRIMTTABM3, 13)  s  “FRA  FIFMA.3" 

2070  FRIMTTABM3. 14)  j  "FRA  DISK.  .4" 

2090  REREATG-GET-49:LIMTILG  9AHDG  3 
2090  FL7.-0 

2100  Af« “ALLE  MAVNEFRA  NAVNFRA  FIFMAFRA  DIS» " 

2110  A*-M1D*  *.A«, 6*19-9, 10) 

2120  PPOCTOP (A«> 

2130  IFG  1THENPRINTTABU0,  10)  iRIGHT« iA«.3) S :  INF^UTTABf  16,  10)  jB*ELSEB*-CMP«  (27) 

2140  RFrOCF'F;  INTEF::  FRINTTAB  i4) :  “HAVN"  s  TAB < 20)  s  ”F  |F:MA"  s  TAB  <33? :  "DIS)  “* STRING*  (3®.  "_*) ; 

2150  F0RLX"4TOl9jPRIMTTA8<O.LX>lSTR!NG«(4O.-  -  >  1 1 NEXTsfPlNTTAB (0.  3)  i :  FOR  L7.-1  TO  MAX:. 
2160  IF  B*3CHF:«<27>  OR  (LEFT* (NAHEt <L%) .  LENB*‘*Bt  AND  6*2)  OF:  (LEFTKF1RM«  <L7.)  .LEN8«>- 
B*  AND  G*3)  OR  <VALB«*DISCX<LX>>  THEN  PRINT  TAB(3-LEN(STR«  <L7.)  >  >  (LXi  iPROCTAB(LX)  :FL7.-FLV 
1 

2170  IFsp*  -J-  AND  FL7.-1&  TMEN  PP0CNEWLD£:FL7.-9:PPINTTAB(0. 3) : 

2180  NEXT  LX 
2190  VOU  3 
2200  sp*«"" 

2210  FROCSFACE 
2220  V0U3 
2230  EHDRROC 

2240  FEM - - 

3000  DEF  FROCSAVE 

3010  RROCTOR< "GEM  FILEM"; 

3011  FILE*""“iST«Oi PRINTTAK  10. 10) : “NAVN  : "j :REP€ATG«GET 

3012  IFG  »63ANDG  ■ 1 26ANDST  ■,THEMVDUG:FlLE«3FILE**CHP»G:ST-ST*l 

3013  |F&-12'?THENVD0GiFILE*-LEFT*  (FILE«.  (LENF ILE«-1  ? )  s ST-ST-1 :  IFST—  lTMENST-0iVDU32 

3014  UNTILG-13 
3030  X7.-0PENUP(FILE«> 

3040  CV.-O 

3030  PRINTMXX.MAXX 
3060  REPEAT 
3070  CX*CX*1 

3060  PRINTBXX. NAME«  <CX> .FIRM* <CX> . DISCX(CX) 

3090  UNT1L  C7.  MAX 7. 

3100  CL0SENX7. 

3110  PRINTTAB (3. 22) i"Fil»n  gent. *i I-INKEYISCO) 

3120  ENDFROC 

3009  rem - -  - - - - -  - 

4000  DEF  RROCLOAD 

4010  PROC  TOP  ("HENT  FILEN"! 

4013  PR1NTTABM0, 10)  1  “F» »navn**  "i 

4020  FlLE«-“’:ST-0:F<£PEATG3&ET 

4021  IFG  -63ANDG  3 1 26ANDST  7TH£NVDUG:F1lE»3FIlE«*CMF.«G:ST-ST*1 

4022  IFG- 127THENVDUG«F ILE« -LEFT« (FILE«,  (LENFILE*-!)  >  jST-ST-1:  IFST—  1TMENST-C: VDU32 

4023  UNT1L&-13 

4024  VDUG 

4030  X7.«0PENUP(FILE»> 

4040  Cti-0 
4030  INPUT VXX.hAXX 
4060  PEPEAT 
4070  C7.»C7.*1 

4060  INPUTBXX.  NAME«  (C7.)  .FIRM«  <CX» .  DISCXlCX) 

4090  UNTIL  C7.  MAX7. 

4100  CLOSE*x:; 

4110  PRINTTAB  1 3, 22) » "Fi len  -FILE«"  hentet. “i I*IN*.EY<300> 

4120  ENDPF.OC 

4999  REM . . . . .  - 

3000  DEF  RF.OCSORT 

3010  PROCTOR ( “SORTERING" ) 

3020  IFMAX5-0  THEM  PRINTTAB'.  10, 10) i "Fjltn  er  ton* "« I*IN)£Y« (300) : ENDPROC 
5030  PF.'INTTAB (9, 24 )  1  "Priori tet "  *  TAB '.20)  j  *A. .  .DIS)  .'F IF.HA.'NATN.  ‘ '  TAB (20)  j  "B. .  .1  UN  EFTER  NA 
VN“ 

3040  T-l 
3050  «FX13. 1 

9060  G«*GET«: IF6«»-B"  THEN  3230  ELSE  IF  G*»*A"  THEN  5070  ELSE  GOT05060 
3070  PRINT’ -DIS)  'FIRNA.'NAVN.  TAB  (3,19)  j"a«  -;MAXX 
3080  F0PF\-1T0MAX7.:  *«♦♦(  1/3) iPRINTTABtO. 19) 1 1NT (f ) 

5090  F0RNX-1T0FX 

3100  IF  DISCS <FX>  DISC7.<MX)  THEN  PFOCSnAF 

3110  NEXT 

3120  NEXT 

3130  F0RF7.-1  TONAXS:  !-♦♦  <  1/3)  iPRINTTAKO,  19)  j  IMT  <  4  1 
3140  FORN7.-1TOF7. 

3130  IF  FIRM«  (F7.‘  FIRM«  (N7.‘  AMD  DISCS  (FX)  ■DISCXlNV'  THEN  PFOCSWAF 

3160  NEXT 

3170  NEXT 

5 1 80  FORE 7.«  1  T0MAX7.J «  •#  ♦  ( 1 .'  3  ?  J  PRI  MT  TAB  <9. 1 9) :  1  NT  ( F  > 

3190  F0f:M7.»  1T0F7. 

3200  IF  NAMEt  IF7.)  NAME«  (MX)  AMD  F 1 F  Mt  ■  F  -F I  FM«  ■  N7. 1  AND  DISCS  (FX)  ■D1SCMNV  THEM 
C  SNAR 

3210  NEXT 

3220  NEXT 

5230  PRIMTTAB ' 3. 22‘ : "F1 len  Sorteret . " » 1*1H*  ET (300) 

3240  ENDPPOC 

5230  PRINT ‘“Kun  a*  navn.  “'TAB  (3. 19)  :“*♦  "jMAX:. 

3260  FORf 7.« I TOMAXXlRRINTTAB'.0. 1°)  ;F7. 

3270  F0PN7.«1T0F-. 

3280  IFNAME«  (F7.)  NAME«  (M7.)  THENRf OCSMAF 

3290  NEXT 

3300  NEXT 
3310  EMDPROC 

3999  REM - - - 

6000  DEF  PROCQUIT 
6010  PPOCTOP ' "SLUT" ) 

6020  PRINTTABMO.  10);  "VM  au  .:r»elig  stocpc  *  " :  : OUITI  o&ET« 

6030  IF0U1T«*-1-THENIFGET«*"3' TMEH1FGET«'  "-THEN1FGET«*"2‘  THEMFGET«3'  t '  ’HENIFGET 1 »  “•  TH 
EM6060 

6040  IFQUIT«-“J"  THEN  CALL  liFFFC 

6030  1FQUITM"N“  THEN  ENDPROC 

6060  GOTO  6020 

6070  ENDPROC 

6080  »FX200 

6090  CLS 

6100  STOR 

6110  ENDPROC 

6999  REN - 

0000  DEF  RRQCNEW 
8010 

8020  PPOCTOP ( “ INITIALISERE  EN  NY  FIL“> 

8030  F ILE**"" iST*0iPRJNTTA8  t )0« 1 0) * "NAVN*  • • • BEPf AT&-GET 

8031  1F&  -65ANCG  -126ANDST  'Tt£NVBU6tFlLE«-FlLE«*CMFf6:iT*ST*l 

8032  lFG-l27TMENVDUG:FlLEt»LEFT«<FlLE«.  ILEr^ILE«-!  jST^ST-Is SFST^-:THEN5’ '  :  ,LU32 

8033  UNTILG-13 
8--4U  Xv.-DPENO'JT  (FILE«) 

9C-3-:-  CL0SE6X7. 

6060  PRIflTTAB(3, 22*  t  "Filen  Imd  :I«IM£.  3C-: 

& ENDPROC 

89ps>  REM - 

900V  DEF  PR0CIN1T 

9010  DIM  NANE«  (200), FIRM« (2>:  ‘. Disc*:  :  : 

902C1  MAr;-'.*:R%->:  sp«*'N- 


9030  »FX200.2 
9040  ENDPROC 

9999  REM - 

10000  DEF  PROCMENU 
10010 

10020  PPOCTOP ("MENU") 

10030  PROCBOPDER 19.6.20, 10) 

10040  PRINTTABM2.  7)  ;  "UDSKRIV  FILEN..  I - 

10030  PRINT TAB <12. 8)1 *RET  FILEN . 2" 

K<i60  PRINTTABM2, 9)j -SLET  INDTAST...  3- 

10070  PR1NTTABM2, 10); ’HENT  FIL . 4" 

10080  PR  I  NT  TAB  <  12,  11)}  "GEM  FIL . 5" 

10090  PRINTTAB <12, 12)1 "LAV  EN  NY  FIL..6* 

10100  RRINTTAB< 12, 13) | "SORTER  FILEN... 7- 
101 10  RRINTTABM2, 14)i  "INDTAST  NA,.'N...B" 

10120  RRINTTABt  12, 13) ;  “STOP . 9“ 

10130  ENDPROC 

10999  REM - 

11000  DEF  PROCTOPt«*) 

11008  VDU3iCLS 

11010  FORIX-O  T01 : VDU69D81 1 L8D83i : RRINTSPC l 16-LEN*«DI’/2) *« 1 CHB«140:NEXT 
11020  ENDPROC 

11999  REM - 

12000  DEF  PROCSWAP  r 

12010  D1X*D1SCX(FX>  I^S 

12020  FH-F1RM« (FX) 

12030  nh-name« (Fx>  II  Programmer: 

|JJ  Samtlige  altrykle  listninger 
i:o6o  name. (Fx> -NAME, (N?.»  ll^-  er  afprøvede  tør  oilentlia- 

120B0  FiRt»(N*i.Fi,  IjL  gørelse.  Forlaget  betaler 

skattefrit  op  til  1000  kroner 

12999  rem-  - .  for  godkendte  læserpro- 

S”  °F^™cr.r','v,A'B>  /J  grammet  Forlaget  har  ret  til 

13020  vou3i.x.».i32.i57,iji.3i,«.A.N.i5i.  ||  at  altrykke  godkendte  pro- 

ENDFRoc  |L^  grammer  i  bladet  og  oflent- 

13F90  "E"- . -----  Kil  liggøre  dem  pd  andre 

14000  DEF  FROCSFACE  |||  ^ 

14001  vdu3  II  lagermedia . 

14005  IF»p«-MJ"  THENENDRROC  I 

14010  RR I  NT  TAB  (8,  23)  {  “TAST  SPACE -BAR  FOR  MENU"  ' 

14020  FLX-Os  REPEAT 
14030  F0RL7.-129TO133 

14040  IFINKEY-99  TMEN  L7.-133lFLX-l 
14030  PR I NT TAB (2, 23) CHR« (LX) i 

14060  I-INKEY (10) iNEXT 

14070  UNT1LFLX-1 
14080  ENDPROC 

»4999  REM - - - 

13000  DEF  PROCDELETE 
»3010  PROCTOR ( "SLET" ) 

13020  IFMAXX-0  TMEN  RR|NTTAB< 10, 10) I "FILEN  ER  TOM* " :G0T013l 10 
»3030  INPUTTAB (0,7) : "HVILKET  INDTAST  SKAL  SLETTES  i "DE 
13040  RROC  T  AB  ( D€ 

13030  PRINT’ -ER  DET  DETTE  ,'-;sG»«GET« 

13060  IF  G«--N"  THEN  GOTO l 3030 
13070  FORL-DE  TOHAXX 

13080  NAME«  (L)  -NAME«  (L-l )  S  FIRM*  (L)  -FIRM«  (L-l )  I  DISC-  (L)  -DISC7.  (L-l ) 

13090  NEXT 
15100  MAX7.-MAX7.-1 

13110  PRlNTTAB<3,22>:"F»l*n  Sl«tt»t. I-It#EY(300> 

15120  ENDPROC 

13999  REM - - - 

16000  DEF  PROC PRINTER 

16001  PRINTTAB(3,8) ;  “Pm  Rrint«r  *»"j  :SP«-GET«j  IFSR«--NM0RSF*-,'n-THCNRRINTTAB(:.8)  iSPC<23) 

I  TAB (O, I ) l i ENDPROC 

16010  IF  SP«' >-J“ANDSP«  '“j*  THEN  16000 

»6020  *p«  =  -J-sRRINTTAB(3,8)  i"P*r*l  1»1  •! .  t«rt*l  :SR«-GET«!  lFSR«--R•'0RSP«■-p"THEN165<H:, 

ELSE  IF  SR»--S-ORSR«--t"  THEN  16030  ELSE  16020 
16030  »FX3.2 

16040  I)»UTTAB(3,8):-HviU«n  t>*ud-r*t»  "sSR7. 

16030  IF  SR7.  75ANDSPV.  130AMDSP7.  3 00 AND  SP 7. .  1200ANDSP7.  2400ANDSP7  4800ANDSPV.  9600AND 
SPX019200  THEN  »6040 
16060  IFSP7.-73  THEN  »FXB.l 
16070  IFSR7.-1S0  THEN  »FX8.2 
16080  IFSP7.-30O  TMEN  IFX8.3 
16090  IFSR7.-1200  THEN  »FX8.4 
16100  IFSR7.-2400  THEN  »FX8.3 
16110  IFSP7.-4800  THEN  »FX0.6 
16120  IFSR7.-9600  ThEN  »FXB.7 
16130  IFSPX-I9200THEN  »FX8.8 
16140  IFX6.0 
16130  VDU2 

1616<'  PRINTTAB(0,0) i  S  ENDPROC 
16300  IFX3.1 
1632<>  VDU2 

16330  PR I NT TAB (0,0) 5 1 ENDPROC 

16999  REM - -  - 

17000  DEF  PR0CTABIL7.) 

17010  RR1NTTAB<4> ; NAME«  (L7.)  |  TAB (20)  {FIRM*  (LX) :  TAB(37-(D1SC7. (LX)  >9) )  |DISC7.(L7.)  s 
17020  ENDPPOC 

17999  REM-  --------  - 

18000  DEF  PROC AM KEND 
18010  PROCTOR ("RET") 

18020  1FMAX7.-0  THEN  RRINTTABt  10. 10)  j  “FILEN  ER  TOM'  *:G0T018130 
18030  INPUTTAB (O, 7) s "Mvi lket  indtast  skal  r«tt*s  s “DE 
18040  RROCTAB(DE) 

18030  PRINT’ -ER  DET  DETTE  ''•jiG«-GET* 

10060  IF  G«--N"  THEN  G0T010030 
18070  INPUTTAB (4,11)" "NN« j 

18080  1 F NN« - " “  THEN  PRINTTABI4,  II) : NAME«  (DE) :  s  INPUTTAB (20.  ID" "FF«s  ELSE  NAME« ( DE ) -NN« « I N 
PUT TAB <20, 1 1 ) ”"FF4; 

16090  IFFF*--"  THEN  PRINT TAB (20, 11)1  FIRM« (DE) : : INPUTTAB <37, 1 1 ) "”DD7.i  ELSE  FIRM* (DE)-FF*: I 
NPUT T AB  ( 37, 1 1  >  "  “ DD7.; 

18100  IFDD7.-0  T)€N  RRINTTAB137. 11);  DISCX(OE) :  1 G0T0181 10  ELSE  DISC7.  (DE)  »DD7. 

18103  PRINT  TAB  (4,  11)  ;NAHE*  (DE) :  TAB  (20, 1 1 )  |FIRM«  (DE)  :  TAB  (77,  1 1  >  iDlSC7.  (DE)  1 
18110  PRINTTAB l 3, 22) 1 “Fi 1 *n  R*tt*t. "i I-IN> EY(300) 

18113  PRINTTAB (3, 20)  i"Er  d«t  1  orden  :G«-G£T«:  IFG«-" J "OF:G«»- j*THEN  ENDPROC  ELSEPRINTTA 
B(3, 20) | STRING« (30, *  “) j TAB(3, 22) »STRING*  <30, *  “ > j :G0T018070 
18120  ENDPROC 
18130  PROC SPACE 
18140  ENDPROC 

18999  REM - 

19000  DEF  PROCNEWL INE 

19001  IFsp«-“ J"  THEN  ENDPROC 
19010  LOCAL  FLX.LX 

19020  PRINTTAB <13, 23) t "TAST  SPACE-BAR" 

19030  FLX-O: REPEAT 
19040  F0RL7.-129T0133 

19030  IFINKEY-99  THEN  L7.-133:FLX-1 
19060  PRINTTAB (2, 23) CHR« (LX) s 

19070  I-INKEY (10)1 NEXT 

19080  UNTILFLX-1 

19090  F0RL-4T024I PRINTTAB <0,L>lSPC (39) | 

19100  NEXT 
19110  ENDPROC 

19999  REM - 

30000  DEF  PROCFEJL 

30001  VDU3 

30002  PRINT"  “sVDU3,3,3,3 
30010  PROCTOP I "F  E  J  L") 

30020  IF  ERRS222  THEN  PR I MT TAB  CO, 10) l "Fj 1 *n  *)sitt«r*r  »kk*.  Lav  en  ny. “JG0T030O30 
30030  IF  ERR- 1 7  THEN  PRINTTAB (O, 10) { "Escape-tasten  virker  ikke’ GOTO 30050 
30040  REPORT: PRINT"  1  linie  ";ERL 
30050  PROCSPACE 
30<'6(‘  ENDPROC 


Sott  Special  1 9 


Identity  Check 

j  ^  PERSONNUMMERBEVIS  PERSONNUMMERBEVIS  Uas,M’ af 


INDENRIGSMINISTERIET 

Sekretariatet  for  personregistrering 


28  SEP  1968 


SEKRETARIATET 

FOR 

PERSONREGISTRER 


Optaget  i  folkeregistret  for  nedenstående  kommune 

HØJE-TASTRUP 


2630 


I  Navn  og  adrøssa 


i 


HANS  CHRISTIAN  THAYSEN 


Beviset  skal  opbevares  omhyggeligt. 

Deres  persognummerbevis  skal  bruges  til  dokumentation  al 
personnummer  over  for  offentlige  myndigheder  og  andre 

Er  der  fejl  i  bevisets  oplysninger: 

Se  vejledning  på  bagsiden. 


!  Personlig  underskrift 


■  Er  du  i  en  identitetskrise,  og 
kan  du  ikke  tinde  dig  selv? 
Det  skyldes  uden  tvivl,  at  du 
har  et  forkert  CPR-nummer! 
For  Commodore  64  ejere,  der 
tøler  sig  fremmedgjorte,  er 
redningen  her.  Programmet 
spørger  selv  om  de  ønskede 
oplysninger,  og  checker  CPR- 
nummeret.  □ 

Jan  Petersen 


COMMO 

DORE 

64 


immwAtiw 


10  PRINT"  J  flCPR.  TAESTH  ”  '•  CLR 

20  PR INT“ SKR IV  CPR -NUMMERET  ,HUSK  KUN  10  TAL" 

30  INPUTCP* 

40  CI=LEN<CP*) 

50  IFC I< > 10THENG0T0  1000 
70  FOR  L  = 1  TO  10 
75  REAOQ 

30  FA=FA+<  C  VALC  MIDSK  CP*,L,  1>)>*Q> 

100  NEXTL 

105  IFFA=0000000000THEN2000 

110  IFC  FA/1  1 >  =  I NT<  FA/ 1 1 ) THEN 1 500 

120  IFC  FA/1  1 ><  > INT<  FA/1  1 )THEN2000 

999  END 

1000  PRINT"J  DET  SKULLE  VAERE  PAA  11  CIFRE  IKKE  PAA”;CI 

1010  FORN  =  OTO 1700! NEXT ! GOTO  1 0 

1100  DATA4,3,2,7,6,5,4,3,2, 1 

1500  PR  I  NT  “LI  DET  ER  ET  AEGTE  CPR-NR." 

1510  INPUT-avML  DU  HAVE  TAESTET  ET  NYT  CPR -NR<  J/N)  " ;  I  * 

1520  IF I$= " J "THEN10 
1530  IFI$="N"THENENO 
1540  GOTO  1500 

2000  PR  I NT" JCPR -NUMMERET  VAR  FORKERT 

2010  INPUT”a^IL  DU  HAVE  TAESTET  ET  NYT  CPR -NR< J/N) " ; I * 

2030  IF  I$=  ”  J  11  THEN  10 
2040  IF I*= "N“THENEND 
2050  G0T02000 

2500  DATA 4 ,3, 2, 7, 6, 5,4, 3, 2, 1 


20  Soft  Special 


banko 


10  PR  I  NT  "  kiS”  SPC<  4)  "*******  »BANKO**  ******" 

1 1  P0KE53280 ,6 !  P0KE5328 1 ,0  « P0KE646 , 1 
13  PR INTTABC  32  )  '  MBBMM—  S  ■  " 

13  PR INTTABC  31) “ffTRYK  Fl" 

17  PR INTTABC  31)"  SF  OR  NYT" 

19  PR  INTTABC  31  > '  *  TAL" 

20  ET-90 

23  D  I  MTBC  ET + 1  > 

30  TB<  ET +  1  ) *0 
40  FORT* 1 TOET 
50  TBC  T)  *T 
60  NEXTT 
70  2*35253 

80  FORT  *  1 TO  lOtNEXT 

81  PR  I  NTTABC  31  )*'  Jlflllllllll  TTTTTT-J  Y  T  SPIL" 

82  PR  I NTTABC 31 > "TRYK" 

83  PR INTTABC 31 ) " 'RETURN' " 

84  FORA* 1T030 : P0KE25*40+A+983 , 1 70 : P0KE25 *40+A +Z ,1 :NEXT 

85  FORA*  1T0  10  s  POKE  1  *40+A+983 , 1 70  :  POKE  1  *40+A  +Z  ,  1  :  NEXT 

86  FORA *20T030: POKE 1 *40+A+983, 1 70 J POKE 1 *40+A+Z , 1  s  NEXT 

88  FORA -1T023:P0KEA *40 +1+983, 170 : P0KEA*40+ 1 +Z , 1 

89  POKE A  *40  +  30  +983 , 1 70  i POKEA *40  +  30 +Z , 1 : NEXT 

90  F*  1  s S*ET 

100  UD- INTC RNDC  F ) *S ) ♦ 1 

102  AS*  " gffllMMMMBaMMMaMa 


155  IFTBC  UD ) *T 1THENX*4 
160  NEXT 

170  F0RT2-2 1T030 

180  IFTBC  UD ) -T2THENX-7 

185  NEXT 

190  F0RT3  *3 1 T040 

195  IFTBC  UD ) »T3THENX* 10 

200  NEXT 

210  F0RT4  *4  1 T050 

220  IFTBC  UD) »T4THENX* 13 

230  NEXT 

240  F0RT3*3 1T060 

250  IFTBC U0)«T5THENX* 16 

260  NEXT 

270  F0RT6  *6 1 T070 

280  1 FTBC  UO  >  *T6THENX  *19 

290  NEXT 

300  F0RT7 *71 T080 

310  IFTBC UO) -T7THENX-22 

320  NEXT 

330  F0RT8*8 1T090 

340  IFTBC  UO ) »T8THENX-25 

350  NEXT 

400  REM*** ************** 

500  PRINTLEFTSC  A*,Y) i TABC  X)TB<  UD) 

1010  AS* " " SGETAS: IFAS- " "THEN10 10 

1013  IFAS- “■“THEN1500 

1100  GETBS*.  IFBS*  "  "THEN1  100 

1110  IFBS-CHRSC  13)THEN3000 

1115  GOTO  1010 

1500  FORTAL -UOTOS 

1600  TB<  TAL ) »TBC  TAL+ 1 ) 

1900  NEXTTAL 
2000  S*6-l 

2100  IFS-0THENG0T03000 
2200  GOTO  100 
3000  CLR  *  GOTO  10 


103  PR  I NTLEFTSC AS, 14); TABC  34>CHRSC  32) 

104  PR  I NTLEFTSC  AS,  14  )  i  TABC  32  )TB<  UO  ) 

105  FOR  1*1 T08 1STEP 1 0 

106  IFTBC UD)* ITHENY-4 

107  NEXT 

108  F0RI-2T082STEP10 

109  I  FTBC  UD ) *  I THENY-6 

1 10  NEXT 

111  FOR  I “3T083STEP 10 

112  IFTBC  UD ) -  1 THENY-8 

1 13  NEXT 

114  FOR  I *4T084STEP 1 0 

115  I FTBC  UD ) -  I THE NY* 1 0 

116  NEXT 

117  FOR  I *5T083STEP 10 

118  IFTBC UO >» ITHENY- 12 

119  NEXT 

120  FOR  I »6T086STEP 10 

121  IFTBC UD)- ITHENY* 14 

122  NEXT 

123  FOR  I »7T087STEP 10 

124  IFTB< UD)- ITHENY* 16 

125  NEXT 

126  FOR  I *8T088STEP 10 

127  IFTB< UD)- ITHENY* 18 

128  NEXT 

129  F0RI-9T089STEP10 

130  I  FTBC  UD  )  *  I THENY -20 

131  NEXT 

132  FOR  I -  1 0T090STEP 1 0 

133  I F TB<  UD ) *  I THENY =22 

134  NEXT 

135  REM***************** 

136  FORTO- 1T0 10 

137  IFTB<  UD ) »TOTHENX* 1 
140  NEXT 

146  FORTI -UT020 


■  Bliv  banko-opråber  i  din  lo¬ 
kale  sportsklub  osv. 

Med  dette  lille  program  er  du 
i  stand  til  at  lade  din  Commo- 
dore  64  udtrække  de  90  num¬ 
re.  Vel  at  mærke  samtidig 
med  at  de  udtmkne  numre 
placeres  på  de  rigtige  pladser 
i  kontrolpladen. 

Fl  giver  nyt  tal.  Return  nyt 
spil.D 

Jørgen  Schneider 


lø  DIM  T <40> 

20  F0RL=54272T054236  PCI 
30  I  NPUT  "  THR3T  I GHED  <50- 


40  1F  HR=ø  THEN  HR=250  - 

50  FOR  I  »ØT040  :  T  <  I  >  =HR  NEXT 

60  TC6>=Hfl#2  MUnWÆWft 

70  T<16:'=Hfl*3 

30  T<23/=HR*2  -  - 

30  T(3i:'=HR*4 

100  T  <  2  > =Hfl/2  T  <  3  >  =Hfl/2 

110  T  <  8  > =HR/2 :  T  <  9  >  =HR/2 

120  T<ll>=HR/2  T<12)=HR,-'2 

130  T  <  1 4  >  =HR/2  T  < 1 5 ) =HR/2 

140  T < 1 9 ) =Hfl/2  T  C20  >  =Hfi/2 

150  T < 27 ) =HR/2 : T (2S> =HR/2 

160  P0KE54296, 15 : P0KE54277, 31  P0KE54275, 14 ■ P0KE54274 
170  RERD  RIF  fl=-l  THEN  RUN 
180  RERD  B 

1 90  PØKE54273 , R  P0KE54272 , B 
200  P0KE54276 , 65 

210  F0RI=1T0T<U)  NEXT  P0KE54276,64 
220  U=U+1  GOTO  170 

230  PRTR  12, 216, 17,37, 17, 37, 17,37, 16, 47, 14, 107, 12,21( 
240  DflTR  10,205, 10,205, 10,205, 11, 114 ■ 10,205, 10,205-9 
250  DRTR  17,37 

260  DRTR  21,154,19,63,19,63,17,37,17,37,19,63,14,107 
270  DRTR  -1,-1 


Intelligent 
Othello  ^ 


O 


■  Jeg  vil  gerne  fremhæve,  at 
dette  eksempel  på  brætspillet 
Othello,  er  hvad  man  kunne 
kalde  "intelligent".  Det  skal 
forstås  på  den  måde,  at  du 
med  denne  version  af  Othello 
i  din  computer,  får  en  ganske 
værdig  modstander. 

De  erlarne  spillere  vil  hurtigt 
finde  programmets  svaghe¬ 
der,  og  vil  kunne  spille  på 
dem.  Har  du  derimod  ikke 
den  store  erfaring  med  spillet, 
vil  det  give  dig  mange  mor¬ 
somme  timer  i  selskab  med 
din  datamat. □ 

Hans-Eiik  Larsen 


O 


4  SLOW 

5  CLS 

6  PRINT  AT  5«  1 0 »  "  .  .  hfr  I  l  cl.  .  " 

5  AT  10,7;  "VIL  DU  BEGYNDE.  J/N" 

7  IF  INKEYS  O " "  THEN  GOTO  7 
S  IF  I NKEYS= " "  THEN  GOTO  S 

9  IF  INKEYS="J"  THEN  GOTO  13 
10  IF  INKEYS* "N"  THENAS=1 

13  SOUND  10,  1000 

14  CLS 

15  PRINT  AT  10, 5? "TAST  F.  FOR  FA 
ST  TtODE"  5 AT  12.  5?  "TAST  S.  FOR  SL0 
W  MODE" 

16M0DE*0 

17  IF  INKEYS*MFM  THENM0DE*1 

18  IF  INKEYS= "S"  THENM0DE=2 

19  IF  H0DE) 0  THEN  GOTO  22 

20  GOTO  17 

21  IF  PS=0  THEN  GOTO  50 
22MI =3 

23  IF  INKEYS=" "  THEN  GOTO  23 

24  IF  INKEYS= " N"  THENAS* 1 
50  CLS 

55X  X=0 
70  FAST 
80C= 16826 
90  FOR  6=5  TO  1 2 
100  FOR  A=  1 5  T022 

105  IF  B=5  THEN  PRINT  AT  4,A;CHRS  < 
0+23) 

110  PRINT  AT  B,  A?  ; 

120  NEXT  A 

135  PRINT  AT  B, 14;CHRS  (B+33) 

140  NEXT  B 

150  POKE  16413,0 

160  PRINT  AT  23« 81  ">>*)th#U0l<<" 
165  PRINT  AT  6,  0;  "scoreB"  ;  AT  7,0?" 
t.  astBO"  ;  AT  15,  0?  "Ist  atusl"  ;  AT  17,0 
' M  X — 2  0=2" 


167HD=0 

170  POKE  16418,2 

171  POKE  C-lt 189 

172  POKE  C-33, 189 
173X*2 

1740*2 

175  POKE  C, 180 

176  POKE  C-34, 180 

177  IF  AS=1  THEN  GOTO  1000 

180  PRINT  AT  0,0?  ">  )  Ed  .  tit  rae-kl^x 
,  y)l<  <  " » AT  9, O;" input 

" ; AT  ii,ii" 

195  SLOU 

200  IF  INKEYS  <>""  THEN  GOTO  200 
210  IF  INKEYS=" M  THEN  GOTO  210 
220AS= INKEYS 

221  IF  CODE  AS=53  THEN  PRINT  AT  9,0 
;  ,,+lDasih-" 

222  IF  CODE  AS=53  THEN  GOTO  999 

224  IF  CCDE  AS=28  THEN  SOUND  10,  15 
00 

225  IF  CODE  AS=28  THEN  GOTO  562 
229  IF  CODE  AS  <38  OR  CODE  AS) 45  THE 

N  GOTO  200 
230X=C0DE  AS— 38 
240  SOUND  20,  1000 
250  POKE  16874,  (X*- 38) 

260  IF  INKEYS  O " "  THEN  GOTO  260 
270  INKEYS= " "  TKEN  GOTO  270 
280BS* INKEYS 

285  IF  CODE  BS>45  OR  CCDE  BS (38  THE 
N  GO^O  260 
290Y*C0DE  BS-38 
300  SOUND  20,  1000 
310  POKE  16375,26 
320  POKE  1 6876, ( Y+3S) 

3305= <  :.  6690+  <  Y+33+  X  )  ) 

335  3RINT  A-  0,0;" 

340  IF  PEEK  S= 1 80  CR  PEEK  S=1S9  THE 
N  GOTO  550 

350  IF  PEEK  (S-34) =180  OR  PEEK  (S-3 
3 )  =  1 80  OR  PEEK  (S-32)*1S0  OR  PEEK  (S 
- 1 )  =  1 80  OR  PEEK  (S+ 1 ) = 180  OR  PEEK  (S 
+  33)  =  180  OR  PEEK  <S+32>=180  OR  PEEK 
c  S+34) = 1 SO  THEN  GOTO  360 


355  GOTO  550 
3600=5 

370  FOR  A=  CQ-34)  TO 16651  STEP-34 
375  IF  PEEK  A=  1  89  THEN  GOSUB  600 
377  IF  PEEK  A<=128  THEN  GOTO  385 
380  NEXT  A 

385  FOR  A* (Q-33)  TO 16550  STEP- 33 
390  IF  PEEK  A= 1 39  THEN  GOSUB  650 
395  IF  PEEK  A<=128  THEN  GOTO  405 
400  NEXT  A 

410  FOR  A= ( Q-32)  TO 16550  STEP-32 
415  IF  PEEK  A= 1 S9  THEN  GOSUB  700 
420  IF  PEEK  A (=1 28  THEN  GOTO  430 
425  NEXT  A 

430  FOR  A= (Q- 1 )  TO 16550  STEP-1 
435  IF  PEEK  A=139  THEN  GOSUB  750 
440  IF  PEEK  A(=i23  THEN  GOTG  450 
445  NEXT  A 

450  FOR  A= ( Q+ 1 )  T017300  STEP1 
455  IF  PEEK  A=1S9  THEN  GOSUB  300 
460  IF  PEEK  A  <  =  128  THEN  GOTO  470 
465  NEXT  A 

470  FOR  A=  C Q+32)  TO 17300  STEP32 
475  IF  PEEK  A=1S9  THEN  GOSUB  850 
480  IF  PEEK  A  <  =  123  THEN  GOTO  490 
4B5  NEXT  A 

490  FOR  A= ( Q+33)  TO 17300  STEP33 
495  IF  PEEK  A=139  THEN  GOSUB  900 
500  IF  PEEK  A  <  =  1 28  THEN  GOTO  510 
505  NEXT  A 

510  FOR  A=  C  Q+34)  T017300  STEP34 
520  IF  PEEK  A= 1 89  THEN  GOSUB  950 
530  IF  PEEK  A  <  =  1 28  THEN  GOTO  540 
535  NEXT  A 

540  IF  PEEK  S=189  THEN  GOTO  1000 
550  PRINT  AT  O,  O*  "-Bul  ov  l  istltrae 
kB- 

560  PAUSE  150 

561  GOTO  178 

562  PRINT  AT  9,  O;  "Bck.  B"  ;  AT  O,  0;N 

■Oj  eb  l  i  kB~  " 

563 X=0 
5640=0 

565  FOR  B=5  T012 


22  Sott  Special 


566  FOR  ft=l  5  T022 
567T  Y=  1 65 1  O**-  ( B*33+A ) 

568  IF  PEEK  TY=180  THEN0*0+'l 

569  IF  PEEK  TY*139  THENX-X+l 

571  NEXT  ft 

572  NEXT  B 

575  PRINT  AT  17, O? " X=" ? X ? M  0=M?0; 

576  IF  X+0=66  THEN  GOTO  8090 

577  IF  X*0  OR  0=0  THEN  GOTO  3091 
585  GOTO  178 

600  FOR  ft= (Q-34)  T016550  STEP-34 
602  IF  PEEK  A=189  THEN  GOTO  385 
605  IF  PEEK  A=  1 80  THEN  POKE  ft,  189 

614  POKE  S, 189 

615  NEXT  ft 

650  FOR  ft- ( Q-33)  T016550  STEP-33 
655  IF  PEEK  ft=189  THEN  GOTO  405 
660  IF  PEEK  ft=180  THEN  POKE  ft, 189 
670  POKE  S, 189 
680  NEXT  ft 

700  FOR  ft= (Q-32)  T016550  STEP-32 
705  IF  PEEK  fi= 1 89  THEN  GOTO  426 

710  IF  PEEK  ft=180  THEM  POKE  ft,  133 

720  POKE  S,  189 
730  NEXT  ft 

750  FOR  ft=CQ-l)  TO 16550  STEP-1 
755  IF  PEEK  ft=189  THEN  GOTO  449 

760  IF  PEEK  ft= 180  THEN  POKE  ft,  139 

761  POKE  S, 189 
765  NEXT  ft 

300  FOR  ft= ( Q+ 1  )  TO 17300  STEP1 
810  IF  PEEK  ft= 1 39  THEM  GOTO  469 
320  IF  PEEK  ft= 1 30  THEN  POKE  ft,  189 
825  POKE  S, 189 
830  NEXT  ft 

850  FOR  A= ( Q+32)  TO 17300  STEP32 
S 60  IF  PEEK  ft= 1 89  THEN  GOTO  490 
370  IF  PEEK  ft=lSO  THEN  POKE  ft,  189 
375  POKE  S,  189 
880  NEX  ~  ft 

900  FOR  ft=(Q+33)  TO 17300  STEP33 
910  IF  PEEK  A= 1 89  THEN  GOTO  510 
920  IF  PEEK  0=180  THEN  POKE  ft. 189 
525  Purxt  5,139 
930  NEXT  ft 

950  FOR  0=<B+34)  T017300  STEP34 
940  IF  PEEK  0=189  THEN  GOTO  540 
970  IF  PEEK  0=130  THEN  POKE  O,  189 
975  POKE  3,189 
9S0  MEXT  a 
930  POKE  S.  189 
999  SOUND  i 0.2000 
1000  PAUSE  100 
lOOlHD'O 
1  002MI=MI-1 
>005  IF  MI <0  THENMI=0 
10050S=0 

X 008  PRINT  BT  0,08"+Bm,t»traek*+ 

1 009WC=0 
i  010HI=0 

1011  IF  M0DE=1  THEN  FOST 

1012  IF  M0DE=2  THEN  SLOW 
1015HL=O 

1020  FOR  0=<15+MI>  T0C22-MI) 

1025  POKE  (16510+01.25 
1030  FOR  B=(5+MI)  T0U2-MI) 

1 040  P=(  1 651 0+( B+33+0) 1 
1050  IF  PEEK  P=128  THEN  GOSUB  1100 
1060  NEXT  B 
1070  SOUND  (0+B) .  500 
1080  NEXT  O 
1085  GOTO  3021 
1090  REM  und*rs09©  t  se 
1100  IF  PEEK  <P-34)=1S9  OR  PEEK  (P-3 
3) =189  OR  PEEK  (P-32)=189  OR  PEEK  (P 
—  1 )  =  1 S9  OR  PEEK  <P+1)  =  189  OR  PEEK  (P 
+32) =189  OR  PEEK  (P+33)=1S9  OR  PEEK 
(P+34)=1S9  THEN  GOTO  1200 
1110  RETURN 
1 20000=0 

1210  FOR  C=(P-32)  TO 16550  STEP-32 
1220  IF  PEEK  C=180  THEN  GOTO  1300 
1230  IF  PEEK  C=1S9  THENQ0=Q0+1 
1240  IF  PEEK  C  (  =  128  THENQB=0 
1250  IF  Q0=0  THEN  GOTO  1300 
1260  NEXT  C 
1 300QB=0 

1310  FOR  C=(P— 33)  TO  16550  STEP-33 
1320  IF  PEEK  0=180  THEN  GOTO  1400 
1330  IF  PEEK  C=I 89  THENQB=QB+1 
1340  IF  PEEK  C <=128  THEN0B=0 
1350  IF  QB=0  THEN  GOTO  1400 
1360  NEXT  C 
1  400QC=C) 

1410  FOR  C=<P-34)  TO 16550  STEP-34 
1420  IF  PEEK  C=1S0  THEN  GOTO  1500 
1430  IF  PEEK  C=1S9  THENQC=QC+1 
1440  IF  PEEK  C  <=128  THENQC=0 
1450  IF  QC=0  THEN  GOTO  1500 


1460  NEXT  C 
1 500QD=0 

1510  FOR  C=<P-1>  TOCP-13)  STEP-1 
1520  IF  PEEK  C=180  THEN  GOTO  1600 
1530  IF  PEEK  0=189  THENQD=QD+1 
1540  IF  PEEK  C  <  =  128  THENQD=0 
1550  IF  QD=0  THEN  GOTO  1600 
1560  NEXT  C 
1 600GE=0 

1610  FOR  C=<P+1)  T01P+13) 

1620  IF  PEEK  0=180  THEN  GOTO  1700 
1630  IF  PEEK  0=189  THENQE=QE+1 
1640  IF  PEEK  C  <=128  THENQE=0 
1650  IF  QE=0  THEN  GOTO  1700 
1660  NEXT  C 
1 700QF=0 

1710  FOR  C=<P+32)  T017200  STEP32 
1720  IF  PEEK  C  =  180  THEN  GOTO  1800 
1730  IF  PEEK  C=189  THEN0F=QF+1 
1740  IF  PEEK  C  <=128  THENQF=0 
1750  IF  QF=0  THEN  GOTO  1800 
1760  NEXT  C 
18000G=0 

1810  FOR  C=  C  P+33)  T017200  STEP33 
1820  IF  PEEK  C=180  THEN  GOTO  1900 
1830  IF  PEEK  0=189  THENCG=QG+1 
1840  IF  PEEK  C  <  =  123  TKENQG=0 
1850  IF  QG=0  THEN  GOTO  1900 
1860  NEXT  C 
1900QH=0 

1910  FOR  C=<P+34)  T017200  STEP34 
1920  IF  PEEK  0=180  THEN  GOTO  2700 
1930  IF  PEEK  0=189  THENQH=QH+1 
1940  IF  PEEK  C  <  =  128  THENQH=0 
1950  IF  QH=0  THEN  GOTO  2700 
1960  NEXT  C 

2700HL=Qfi+Q8+QC+QD+QE+QF+QG+QK 

2750  IF  XX=1  THEN  GOTO  3017 

2800SB=0 

2S01BB=O 

2302BC=0 

2803BD=0 

2808  IF  PEEK  16690=180  THENSB=1 

2810  IF  PEEK  16697=180  THENBB=1 

2820  IF  PEEK  16921=180  THENBC=1 

2830  IF  PEEK  16928=180  THENBD=1 

2390  IF  SB= 1  THEN  GOTO  2901 

2900  IF  (P- 34) =16690  OR  <P-33)=166 
90  OR  ( P-I ) =16690  THENHL=0 

2901  IF  BB= 1  THEN  GOTO  2919 

2910  IF  CP-33) =16697  OR  <P-32)=166 
97  OR  <P+1) =16697  THENHL=0 

2919  IF  BC= 1  THEN  GOTO  2928 

2920  IF  (P+33)  =16921  OR  <P+32)=16S 
21  OR  C  P-l ) =16821  THENhL=0 

2929  IF  BD= 1  THEN  GOTO  3006 

2930  IF  (P+33) =16928  OR  <P+34)=169 
23  OR  CP+1) =16928  THENHL=0 

3006  IF  HL) O  RND  P=16928  7HENWC=1 

3007  IF  HL)  O  OND  P=16690  THENWC=1 
300S  IF  HL)  O  PND  P=1692I  THENWC=1 

3009  IF  HL)  O  OND  P=16697  TH£NWC=1 

3010  IF  HL) 2  OND  P< 16697  TH£NWC=1 

3011  IF  HL)  2  HND  P)  16921  THENWC=1 

3015  IF  WC=1  THENHI=P 

3016  IF  WC=1  THEN  GOTO  3025 

3017  IF  HL)  HD  THENHD=HL 

3018  IF  HD=HL  THENHI=P 

3020  RETURN 

3021  IF  HD=0  THENXX=XX  +  1 

3022  IF  XX=1  PND  HD) O  THENXX=0 

3024  IF  XX=1  THEN  GOTO  1001 

3025  IF  XX=2  OR  HI=0  THEN  GOTO  8000 
3030  SOUND  10.  2000 

3035  SLOW 

3038  FOR  0=1  T015 

3039  POKE  HI.  52 

3040  POUSE  4 
3050  POKE  HI.  ISO 
3060  NEXT  O 
3070  GOTO  4000 

4000  FOR  C=<HI-32)  T016690  STEP-3 

2 

4010  IF  PEEK  C=180  THEN  GOSUB  6000 
4015  IF  PEEK  C  <  =  128  THEN  GOTO  4100 
4020  NEXT  C 

4100  FOR  C=CHI-33)  T016690  STEP-3 

4110  IF  PEEK  C=180  THEN  GOSUB  6100 
4115  IF  PEEK  C  <  =  128  THEN  GOTO  4200 
4120  NEXT  C 

4200  FOR  C=<hI-34>  T016690  STEP-3 
4 

4210  IF  PEEK  0=180  THEN  GOSUB  6200 
4215  lc  °EFK  C <=128  THEN  GOTO  4300 
4220  NEXT  C 

4300  FOR  C= (HI-1 )  TO  16690  STEP-1 
4310  IF  PEEK  C=1S0  THEN  GOSUB  6300 
4315  IF  PEEK  C<=123  THEN  GOTO  4400 
4320  NEXT  C 

4400  "OR  C=<h:+1)  TO ( P+15) 

4410  IF  PEEK  0=180  THEN  GOS'JB  6400 


4415  IF  PEEK  C <=128  THEN  GOTO  4500 
4420  NEXT  C 

4500  FOR  C=(Hl+32>  T017200  STEP32 
4510  IF  PEEK  C=1S0  THEN  GOSUB  6500 
4515  IF  PEEK  C <=128  THEN  GOTO  4600 
4520  NEXT  C 

4600  FOR  C=<HI+33)  T017200  STEP33 
4610  IF  PEEK  0180  THEN  GOSUB  6600 
4615  Ir  PEEK  C <=123  THEN  GOTO  4700 
4620  NEXT  C 

4700  FOR  0<HI+34)  T017200  STEP34 
4710  IF  PEEK  C=1S0  THEN  GOSUB  6700 
4715  IF  PEEK  C  <=128  THEN  GOTO  17S 
4720  NEXT  C 
4800  GOTO  178 
6000  POKE  HI, 180 

6005  FOR  C= (HI-32)  T016690  STEP-3 

2 

6010  IF  PEEK  C <=180  THEN  GOTO  4100 
6020  IF  PEEK  C=139  THEN  POKE  C.  130 
6030  NEXT  C 
6100  POKE  HI,  180 

6105  FOR  C=(HI-33)  T016690  STEP-3 

3 

6110  IF  PEEK  C  <= 180  THEN  GOTO  4200 
6120  IF  PEEK  0=189  THEN  POKE  C.  180 
6130  NEXT  C 
6200  POKE  HI.  180 

6210  FOR  C=<HI-34)  T016690  STEP-3 

4 

6220  IF  PEEK  C <=180  THEN  GOTO  4300 
6230  IF  PEEK  *C=189  THEN  POKE  C.  180 
6240  NEXT  C 
6300  POKE  HI. 180 

6310  FOR  C=  C H I - 1 )  TOCHI-13)  STEP- 
1 

6320  IF  PEEK  C  <=180  THEN  GOTO  4400 

6330  IF  PEEK  0=139  THEN  POKE  C.  180 

6340  NEXT  C 

6400  POKE  HI, 180 

6405  FOR  C=<HI+1)  TOCHI+13) 

6410  IF  PEEK  C  <=180  THEN  GOTO  4500 
6420  IF  PEEK  0=189  THEN  POKE  C.  180 
6430  NEXT  C 
6500  POKE  HI.  180 

6510  FOR  C=<HI+32)  T017200  STEP32 
6520  IF  PEEK  C  <  =  180  THEN  GOTO  4600 
6530  IF  PEEK  0=189  THEN  POKE  C,  180 
6540  NEXT  C 
6600  POKE  HI,  180 

6610  FOR  C=  <HI +33)  T017200  STEP33 
6620  IF  PEEK  C  <  =  180  THEN  GOTO  4700 
6630  IF  PEEK  0  =  139  THEN  POKE  C,  180 
6640  NEXT  C 
6700  POKE  HI,  180 

6710  FOR  C= (HI +34 )  T017200  STEP34 
6720  IF  PEEK  C <=180  THEN  GOTO  178 
6730  IF  PEEK  C=189  THEN  POKE  C,  180 
6740  NEXT  C 
7000  GOTO  178 

5000  FOR  0=5  T050  STEP5 

5001  SOUND  0,500 
3002  NEXT  O 
S009X=0 
30100=0 

3020  FOR  0=5  T012 
3030  FOR  B=15  T022 
3040 P0= <1651 0+ (0+33+B ) ) 

3050  IF  PEEK  P0=180  THEN0=0+1 
3060  IF  PEEK  P0=189  THENX=X+1 
3070  NEXT  B 

3075  SOUND  (fi+B-19) , 500 
3080  NEXT  O 

3090  SLOW 

3091  IF  0>X  THEN  PRINT  OT  O,  O !  "  J  @9 ■ 
vandt  MED  "i  O!"  BOLLER  MOD  DINE 
"8X8"  KRYDSER" SOT  IS. 158 “+  MOTE  + 

3100  IF  X)0  THEN  PRINT  MT  0.  OS"du*v 
andt  MED  ■ S  X  S "  KRYDSER  MOD  MINE 
"SOS"  BOLLER" 

3110  PRINT  OT  21 »  5? "VIL  DU  PROVE  I 
DEN  J/N" 

3115  IF  0=X  THEN  PRINT  OT  O,  OS" 

DET  BLEV  UOFGJORT  MED  “ S  O  S " - " S  X  S 

3120  IF  INKEY*=”J”  THEN  RUN 
3130  IF  INKEY*="N"  THEN  STOP 
3140  GOTO  8120 
9000  SOVE  "OTHELLo" 

9010  RUN 
9500  FOST 

9510  FOR  0=1  T091  STEPS 
9520  SOUND  0.500 
9530  SOUND  (0+1), 500 
3540  SOUND  (fl+2),500 
9550  SOUND  (0+3) »  500 
9560  SOUND  (0+4).  500 
9570  SOUND  (0+5) »  500 
9580  NEXT  O 
9590  SLOW 
9600  RETURN 
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Soft 


scioll 


Dette  program  til  Oric/Atmos 
er  en  lille  maskinkoderutine, 
der  tint  kan  bmges  som 
"blær"  i  spil  og  andre  pro¬ 
grammer.  Programmet  "rul¬ 
ler"  hele  karaktersættet.  Kal¬ 


der  man  rutinen  8  gange,  vil 
karaktererne  være  pd  plads 
igen.  Demoprogrammet  skul¬ 
le  gerne  vise.  hvordan  det 
virker.  □ 

Anders  Jørgensen 


1  F0RN=#400  TO  #4 ID 

2  READA$ : M=VAL( +A$ ) 

3  POKEN.M 

4  NEXT  N 

5  DATA  A9.00, AØ, B4 ,85 ,00 ,84 ,01 

6  DATA  AØ,00,B1 ,00,2A,B1 ,00,2A 

7  DATA  91 ,00,C8,DØ,F5,E6,01 ,A5 

8  DATA  01 ,C9,B8,DØ,ED,60 


1.  del 


10  REM  ++++  DEMONSTRATION  ++++ 
20  CLS: PAPERØ: INK7 


2.  del 


30  POKE#26A,  1  0 

40  PL0T3, 10, "DETTE  ER  EN  DEMONSTRATION  AF,  HVAD" 
50  PL0T3 ,12, "MAN  KAN  GØRE  MED  DEN  LILLE  RUTINE." 
60  WAIT  200 

70  F0RN«1T080:CALL*400:NEXTN 
80  WAIT  200 

90  F0RN=1 T080: CALL&400: NEXTN 
100  WAIT  200 

110  PL0T3 ,14, "DET  SAA  DA  SMART  UD,  IKKE  SANDT  ?" 
120  END 


Copyright  1985  by  Anders  Jørgensen! 
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an  ma  s 


■  I  dette  Scramble  lignende 
spil  til  48  K  Spectrum  skal  du 
flyve  gennem  de  7  torskellige 
skærme.  Samtidig  skal  du 
skyde  rumdyr  ned  uden  selv 
at  blive  ramt. 

Pd  hver  skærm  bliver  spillet 
en  smule  sværere .  Det  ses  ved 
at  jorden  skifter  larve  og  lase¬ 
ren  hurtigere  bliver  ophedet. 
Spillet  er  i  øvrigt  selvforklaren¬ 
de. □ 

Benny  Lønstrup  Kristensen 


<S 


0  >PEM 

********♦************- 

*  PROGRAMMØRER 

*  Benny  L .  Kristensen 

*  Lars  øs  t  e  r  ba  1 1  e  tit 

*  4..3K  SPECTRUM 

*  Kan  e  v  t  .  d£ n y  1 1  £  i  ■  i 

*  CURRRH  MICRO-SPEEC- 

*  :  linierne  »ed  s  s  = 


1  ClERR  59999:  RESTORE 
h=ø  BORDER  0  PAPER  ø  CLS 
K  6 

2  GO  5UB  9000  LET  ind *300 
GO  SUB  ind 

3  LET  OUt *1200  LET  o=ø 
sfcaern»=i  ._et  as  k  =1Iøø  l_E'  - 

LET  D  =29  LET  r=-l  j_et  fj=l 
1_ET  c$='GH  GH  GH  i_E  ‘ty 
øøø  LET  e -2=1500  LET  =»ud=2 
LET  ex =2500  lET  i n v  *3øøø 
styrt  =4.000  LET  fuet=50øø 
print =6000  -ET  slut=70øø  _  E 
nd =Søøø  LET  f l =ø 

4.  let  a  =5  let  p 2  =  løøø  _= 
K  i  ft =1300  LET  r a  =5 


^  •o  ^  •?  jo«** 


H  y  2  &  <•  ?  ^  j*  d  <»  9  w  o  1 

.  ■' 
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■  Programmet  kan  checke  et 
CPR-nummer.  samt  beregne 


alle  gyldige  erstatningscilre  til 
en  given  fødselsdag.  □ 

Niels  Jørgen  Bertelsen 


'i  REM - 

•3  G0SUB8W 

10  RES r URE  CLR  -D1HMK12;  FURX*lTOlU  MsftDCH< •  •  Hin  X r  NEXT  R£ADAD(11>,A1M«:/ 

2ø  PRIMT" nWiTjlI PR . PRO . «W*fb- - -  INHJI  UDSELSDH T 0  “,LU  B<VRL<HIM< UB,  S.* 

)) 

&  IKVRL<RIGHT*<D*/2>>/  4=IHTvVhLvRIUHIJ-  D*./  •  * .  4  >  I  HhMHlK  2  >  *2*3 
4ø  1PLEN*  li*  '06  OR  VtiL'.DS.K iøløø  OR  U.  h'  fHEM2ø 
50  FORX* 1  TOS  S 1 =S 1 +CH< X  > ♦VmL v  M 1 D* • D* ■ . .  ■ 1 > •  NEXT 
Sø  PRINT" 4«M*i*lt|iMRfct - " 

7ø  INPUT  «W>UWlW.-M-LlFRET  KODE" , k*  k»VAUK#;  IFLEN<K#K>40WOeTHEN7ø 

oV  1  FøRX*7T0lø.S2*S2+CH<;  >*V»HL<HIB*<»  1"  NEXT  IFS2/1 1*IN1  ■  32/ 1  1  •  I  HEN  l 

05  _ _ _ 

9ø  PRINT  fil»W»Wiim*W;);4JoVLBIOT  CPR.NR.  •  EORW=l  T0400O  NEXT 

100  PRINT  ciiWfliMttMilN  "  k*=""k-uGOT06ø  .  fir. 

Iø5  PRlNT‘flW^øWlI»ftMaE>VLDIGT  CPR.NR.''"  VIC 

løS  I  FK/2=  INT*.  K/2 1 T  HENRR I  NT  "  ktøSIT  1  LHøRER  EN  PIOE."  00T0108  3 

107  PRINT " flUSlT  ILHøRER  EN  BREN6. '  [  SI 

løS  FuRW=lT04øøø  NEXT  .  H 

llø  IFV=1 THENSØØ  ■ 

12ø  PRINT " 3M&PR . NR .  "D*M-"K*  t  1  , 

125  print“«ww-.» -  flBnm 

126  PRINT"«WHlWÆRSTftTNIHGSNR.  "  jl  l  «  I 

127  PRINT " ol»l»l»l»/;t RSTØTN I NOSNR .  " 


)  PR  I  NT ‘"*1 - I FK/2"  I  NT  *.  K/2  /  T  HENKØ*  1 

I  FORCK^øT 09999  SU=S1  Ck*=RIGHT*<$TR**.Ck,*  . Aj 
)  lFCK<løeøØNDCIO99THENCKM"ø^R10HT»CSTR«CK)/3)  GOTOleø 
I  FCK<  1  øøMNBCk  >9THENCK»*  -  øø  "  ♦RIGHT**.  STR*  <  CK  > ,  2  >  GO  TO  1  Sø 
IFCK<løTHENCk*="øøø"+RIGHT$vSTR*vCIO, 1) 

FURX- 7T0 1  ø  SU=SU«-CH *. X > * VftL *. Ml D* *. Ck* , X-6 , 1 ) >  NEX T 
I  FRØ*  1 ANDCK/20 INT  i  CK/2  >  THEN220 
I  FKø-øftNDCK /2«  I  NT  *. CK/2 >  THEN220 
I FSU/ 1 1 0 INT  <  SU/ 1 1 ;0RCK«k  THEN220 
E=E*1 

I FE>9HNDEn 1 øøT HENPR INT" WTR .  "E"  "D*"-"Ck* 

IFEaøTHENPRINT"**.  "E”  "B*M-"Ck* 

IFE>99THENPRINT-j»4R.  "E“  "D* "-"CK* 

P0KE3S878 » lø  P0KE36875 . 24ø  F0RW=1  T05U  NEXT  P0kE36878,8  P0KE36875 .  ø 
GETU*  IFU**'*S"THEN  24ø 
NEXT  CK 

IFCK<9999THENPRINT"lfst  Fv;  FOR  FORTSNET." 

PRINT"lM>M<  FOR  MENU." 

GETrt*  IFh*="F"HNDCK C9999THENNEXTCK 

IF  H*-"M"THEN3øø 

G0T0260 

BNTft  4,31,3,28,2,31,7.30,6,31,5,30,4,31,3,31,2,30, 1.31.30.31 

PR  I  NT  "  mMsHO VE BME NU  " 

PRINT" - " 

PRINT  PRINT"  1.  CPR-CHECK." 

PRINT  PRINT"  2.  CPR-SNVB. " 

PRINT"  lU - " 

PR I NT "  1MI NDT NST  VHLG  " 

RESTuRE  CLR  DIMHD«.  \2>  FORX*  1  TO  1  ø  RENBC H < X , , NB <. X >  NEX T  REftDWK  1 1  > , HD <1 2 > 
GETV*  IFV**" "THEN360 
V»VRL( V*> 

I F V« 1 0RV*2THEN2ø 
G0T0360 


5  LET  l  = .  4  BEEP  1,7  BEEP  . 
9  ■  BEEP  i.  ,  5  BEEP  l  ,  -2  BEEP  .  - 
.5,5  PAUSE  25  BEEP  1,5  BEEP 
-2  BEEP  l  ,  10  BEEP  l  .  14.  BEEP 
1*1.5,12 
5  CL5 

10  FOR  f  si  Tø  60  INK  AND*" 
L0T  RND *255 , AND *175  NEXT  • 

100  LET  5$=  AB I JABADBDAD f IH-SI 
ACCACDBLKGHLØ' 
llø  LET  bs=a$+a$+as+as 
130  PRINT  AT  19.0  BRIGHT  1  I 
UER3E  1.;  INK  s  k ae  r«. 

PAR5EC  jr  ni 

135  PRINT  AT  S,0  INK  2  OUER 
'  GH  " 

137  PRINT  AT  20,1;  BRIGHT  i  : 
K  4-  1  FUEL  >*u,AT  20,15  '  SCORE 

P  AT  21,1, C %, AT  21,15  HIG“ 
h 

I4.ø  FOR  2=1  TO  LEN  bS-31 
150  PRINT  AT  13,3  BRIGHT  1  : 

K  £Kaerm,t.*-z  TO  2  +31* 

160  GO  SUB  flyt 
17ø  GO  SUB  skud 
160  GO  SUB  inv 

•HCT 


190  GO  SUB  prjnt  IF  f 1=1 
GO  to  3 

2øø  GO  SUB  årK 

210  IF  ftj  290  TnEN  GO  S-jB  fue 
220  IF  fu  <50  THEN  GO  SUB  O'-'t 
300  NEXT  z 
310  GO  TO  14.0 
løøø  PEN  *  f  l  y  t  * 

1015  PRINT  AT  s;0;  INK  0'2+2^= 
er«,.  2,  DUER  1,  ,,Gh“ 

1020  lET  i n  *IN  65022  LE”  in  la 
64.510  l£t  a=a+iin=254.  op  = 
ø  AND  a  21'-  •inl«254.  OR  ;r.i  =  i 
i  AND  a  >  0  '!  LlT  f  u  s  f  U  -6*  '  1  n  1  =e 
OP  i  n  1  =  190  :  -2  *  *:  1  n  =254.  OP  m=l 
)  -4.*  (  i  n  <  >254.  and  in  <>190  AND  : 
<>254.  AND  i  ni  '>190) 

1030  PP INT  AT  a , 0 i  INK  0/2+2  +  S 
eri/2;  OUER  1, "GH" 

104.0  PETIJAN 
Iløø  AEM  *asK* 

1110  IF  a  < is  THEN  RETURN 
1115  LET  s$=  'fcr(ChMsh>  w :  :  •  ■  • 
r  1.  ow  ind" 

112ø  GO  SUB  e  x 2 
1130  RETURN 

1200  REH  *out  Of  f uel* 

1205  PRINT  AT  16,0; " 

1210  PRINT  AT  11,2,  INK  5  DU 
LØBET  tøa  FOR  BRAENDSTOF  lB 
s$=  sori'ee'  y(ouu)  aaA  low't  C 
f y  (ouu ) t " 

1215  PAUSE  I 

1220  FOR  f =a  TO  18  BEEP  .01  : 
r*  lET  asf  PRINT  AT  f.ø  INK 
"GH"  Før  9=1  TO  10  NÉX”  5  P 
NT  AT  f.ø;"  NEXT  f  GO  SUE 

x2 

1230  PRINT  AT  11,2;" 

124-0  RETURN 
1:^00  A£M  *£-K  i  ft* 

1310.,  PRINT  A”  19,0;  I  NUER  SE  1 
RIGHT  1;  INK  2  K a €  r frt , 

PAR^’EC  jr  PRINT 

ISVø;  INK  sKaerm,  BRIGHT  i:r-i 
TO  PkINT  hT  19  2'”:  INC 

SE  1  BRIGHT  i;  INK  s* ae  ru  = 
k  a  e  r  m 

1320  RETURN 

15øø  REM  »eksplosion  af  rums.; 
1510  l ET  0=0  PRINT  AT  g  ø  0. 

1;  INK  2  PAPER  7;  FLASH  1  = 

G HT  i  LM"  POKE  60006.1  ROkS 
0016.1  FOR  »= 1  TO  5  LE”  qq=L 
60000  NEXT  f  IF  C  $  ;  ”HFN 
ET  c  $  =  C  $  i  Tø  LEN  C $-3  )  FOR  = 
TO  200  NEXT  f  PRINT  AT  a  ø 
lET  a  =3 

1520  LET  f" :j  =1000  PRINT  AT  5  C 
QU  ER  1  INK  4-  "GH" 

159ø  RETURN 

1999  REM  *skud* 

2000  LET  i n  =  IN  57342  IF  iK=2= 


OR  in =191  TMEN  LET  0=0-1  AND  0,0 
RETURN 

2005  lET  0=0+1  IF  o  >  10-2  k  ae  T 

HEN  PRINT  AT  10,8,  OUER  i  INK  2 
LASER  OUEROPHEDET •  let  2 S=  U 
U  (aa)s  (er.'s  ioo)v(er)h(ee'  t  e  r  t 
t  .GO  *  SUB  e  x2  lET  o =ø  PRINT  A 
T  lé,3,  OUER  1;  INK  2  "LASER  OUE 
ROPHEDET" 

2010  LET  q=RND*6+l:  PRINT  AT  a.2 
INK  q,  OUER  1, "KKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKK '  POKE  60016  1 
L E”  qq=U5R  Føøøø  PRINT  AT  5  2 
INK  q,  OUER  1  " KKKKKKKKKKKKKKK KK 
KKKKKKKKKKKKK " ; ;  IF  a=C  AND  f a =5 
THEN  LET  p=p+35-b:  GO  SUB  e 
ET  c  = - i  IF  2kaerw>=5  THEN  lET  f 
a  =6 

2015  IF  a=c  AND  fa =6  THEN  lE”  fa 
=5 

2017  IF  Skaer»=5  AND  p>p2  then  l 
et  f a =6 

2020  IF  p  >p2  THEN  LET  skaerwasKa 
eriRj-l  GO  SUB  Skift  LET  2S=  Adv 
aans  t  (ouu)  nekst  lev  (er)  1  let 
P 2  =P 2  +  1000  LET  :$  =  CJ+  'GH  " 

2100  RETURN 

25øø  rem  »eksplosion* 

2505  IF  RND  > *  5  THEN  lET  2$  =  "f(u 
)n  ( s  h ) o  t " 

2510  PRINT  AT  c, bi  OUER  1,  F^ash 
1  INK  2.  PAPER  6: "LM  POKE  60 
016,3  l£T  qq=USR  60000  PRINT  A 
T  C  t  INK  0 
2600  RETURN 
3000  REM  +ar:5.'€b* 

3010  IF  C  =- 1  THEN  LET  C  = INT  OND 
*17)  PRINT  AT  f,b;  INK  fa  OUER 
1  IJ" 

3015  IF  b  =2  THEN  PRINT  A”  ;  r  I 
NK  ø  "  lEt  b  =29  LET  c=-l  R 

ETURN 

3017  IF  a=c  AND  skae  rm  <5  3 R  a  = : 
AND  Sk  aer  ih  =5  AND  RND  <.35  THEN  G 
O  SUB  3100 

DA  TNT  AT  r  .h  TNK  fm  OUER 

1;  "IJ  " 

3030  LET  b  =  b- i  LET  c=C+‘.a  O  -  = 
< c )  PRINT  AT  cb;  OUER  1,  INK  f 
a  i  "IJ" 

3040  RETURN 

øløø  PRINT  AT  C,  bi  INK.  fa,  OUER 
1  '  IJ"  lET  d  $  =  " KKKKKKKKKKKKKKK K 

KKKKKKKKKKKKKK " :  PRINT  AT  c,0;  3 
RIGHT  1;  OUER  1,  INK  6;dS<  TO  t ' 
PRINT  AT  C , b,  OUER  1,  INK  fa 
IJ" 

3110  POKE  60016,1  LET  qqaUSR  60 
øøø  PRINT  AT  c,0.  OUER  1  INK  2 
. d$« ;  TO  b)  :  IF  c=a  THEN  let  2  $  = 
HAHAhahaaa'  GO  SUB  ex2 
3120  RETURN 

5000  LET  ss='t(ii)m  t(ouu)  r  (ee 
f  y  ( o  u  u )  l  ' 

5001  PRINT  AT  c , b,  OUER  1.  INK  5 
;  "  I J "  AT  11,7,  OUER  ø,  INK  2  PR 
PER  6  FLASH  1; "BENZIN  PAAFYlDNI 
NG"  FOR  f  =3  T O  1  STEP  -1  PQKE 
60016-,  f  RANDOM IZE  USR  60000  NE 
XT  f 

5005  LET  e  $  = 

EFEEFFFFFFBlKll 

øfffpffffffeeeeeeeebenz ineffffff 

FFFEEEEEEEEEF 

5010  FOR  x  = 1  TO  len  b*-3i 
5030  PRINT  AT  13,0  BRIGHT  i  IN 
k  skaerm,b*(x  TO  x+31)  AT  16  0 
BRIGHT  i,  INK  skaerm.;e$'  TO 
1) 

5035  GO  SUB  flyt;  IF  f U < =0  TMEN 

GO  SUB  OUt 

5037  GO  SUB  print 

504ø  IF  X  =71  AND  3  =17  THEN  LE^  - 
=P4500  FOR  9=0  TO  4ø  BEEP  .005 
9  LET  fu=fU+25  PRINT  AT  20  ” 
INK  4  f\j  NEXT  9:  PRINT  AT  il  7 
;  INK  7;  FULDE  TANKE.  „E 

T  s s="  fy  (ouu)  l  te(ng)s  f(uh)i‘ 
5100  IF  x =37  AND  a  =16  OP  a=18  ” 
HEN  LET  s  $  =  "  k  r  ( e  h )  ( S  h )  w  i  ( t  n *  9  '  : 
ow:nd"  GO  SUB  ex2  GO  SUB  print 
PRINT  AT  16. ø, " 

" ;  AT  c , b,  OUER 

li  INK  5,"IJ-  AT  11,7;  OUER  0. 

RETURN 


5900  NEXT  X  PRINT  AT  11,9  INK 

5910  IF  fU  <  =200  THEN  LET  fu»l 
5920  PRINT  AT  c,b,  INK  5  OUER  1 
;  "IJ"  AND  C  <  > - 1 
5990  RETURN 

6øøø  REM  »udskrivning* 

6020  PRINT  AT  20.0 i  BRIGHT  1;  IN 
K  4,  "BENZIN  ',  fu;  "  " ;  AT  20  15  P 
O INT : " , P , AT  21,1, C$(  TO  LEN  c**( 
LEN  C $< 11)  +11* (LEN  C  S  > 11)  )  i  " 

AT  21 , 15,  TOR  : " ; h 

6030  IF  c$  =  ' TMEN  GO  TO  6500 

6100  RETURN  _ 

6500  PRINT  AT  ø,0;  INK  6  ' 


6500  PRINT  AT  ø,0, 

HME 


6501  PRINT  AT  870;  INK  6  1  -IS 

OUER" 

6505  IF  P  >h  THEN  LET  h =P  BEEP  . 
1,10  BEEP  .1,15  BEEP  .1,2#  RR 
INT  AT  21.21,  INK  4,  FLASH  1, h 
F'OR  f  =1  TO  5  POKE  60016  f  LE” 

qq  =usr  seøøø  next  f 

6506  LET  s$=9(aa)»  (oo)v(er' 

6507  IF  INKEYØ  <  > " "  THEN  GO  TO  65 
07 

6510  FOR  f =30  TO  40  BEEP  .005, f 
NEXT  f 

6515  IF  INKEY  $s" "  THEN  GO  TO  651 
5 

6520  CLS  :  LET  f l =1 

6600  RETURN 

Søøø  REM  »indledning* 

3005  PRINT  AT  2, 11 i  INK  6 i  B.L.K 
OG  L . 0" 

3010  PRINT  AT  6,13;  BRIGHT  1  IN 
K  2,  "KONTROL  i  AT  3,13;"0P  O 
AT  lø,13; "NED  A ’ 1  AT  12,9,  "DU  SK 
YDER  MED  Y " , AT  16,8; "TRYK  PAA  EN 
TAST! " 

3020  IF  INKEY $  <  > " "  THEN  RETURN 
3030  FOR  f  =0  TO  60  STEP  6  BEEP 
.005, f  NEXT  f:  FOR  f =60  TO  O  5T 
EP  -6:  BEEP  . 005 ,  f :  NEXT  f.  GO  ” 
O  3020  ' 

9øøø  FOR  g  =1  TO  13:  READ  o  S  FØR 
f  =0  TO  7  READ  a  POKE  USR  åS+f 
, a  NEXT  f:  NEXT  g 
9010  FOR  f =60000  TO  60021  READ 
a  POKE  f , a  NEXT  f 

9051  DATA  "a " , BIN  øøøløøøl.BIN  O 
0010011, BIN  øøøløøll, BIN  0001001 

I ,  BIN  øøølllll, BIN  01001111,255, 
255 

9052  DATA  "b", 123. BIN  lløøøøiø  5 
IN  lløøøøll , BIN  11000011.BIN  llø 
øøøll, BIN  11011011,255,255 

9054  DATA  " C  123 , 132 , BIN  løiØCi 
00, BIN  llløøløø, BIN  llllø 100  BIN 

11110100 , BIN  11110100,255 

9055  DATA  d  0 , 0 , 0 , 0 , 0 , B IN  øiøø 
0101, BIN  01000101,255 

9056  DATA  e  255, 255  BIN  111001 

II,  BIN  lløøøll, BIN  øløøøll , BIN  ø 
løøøll, BIN  øløøøøl,© 

9ø57  DATA  '  f "  255 , 255 , 255 , B IN  øø 
111001, BIN  øøiløøøl, BIN  øølløøøl 
BIN  øøløøøøø  BIN  øøløøøøø 

9053  DATA  9  ø,BIN  11 løøø il  SIN 
00101111, 255, BIN  00101111,255  4 

7. BIN  llløøøll 

9059  DATA  "h  ø,BIN  lliøøøøø  128 
B IN  11111100. 255 , BIN  lllløøøø , 1 
23, BIN  lliøøøøø 

9ø6ø  DATA  "i  ",  1,2, 7,8  ,  BIN  øøiliø 
øø,3,3,7 

9061  DATA  j  BIN  lllllløø,2  BIN 
11110010,14, 14, 12, 8, BIN  llliøøø 

ø 

9062  DATA  k  0 , ø , 0 , 0 , 255 ,0.0,0 

9063  DATA  "l"  BIN  11110010.BIN  O 
0001101, BIN  11110110  BIN  0010111 
i, BIN  lløøølll, BIN  00011001, BIN 
1110110  BIN  lløløølø 

9064  DATA  "m  BIN  løøøløøø  BIN  ø 
øøiøølø  BIN  øølløøll , BIN  iiøøøiø 
ø  BIN  lllllølø, BIN  øøløløøø.BlN 
00100100  BIN  øøøløølø 

907ø  DATA  33,0,0,6,255,1”, 1,0  19 
7 , 229 , 205 ,131,3, 225 , 193 ,17,3,0,2 
5,16,240,201 
9999  RETURN 
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10  PRINT"J" 

50  FOR J =49 152T049 152+595 
60  READ  XiPOKEJ,XsU=U+X 
70  NEXT  J 

80  IFU< >77887  THEN  PR INT"FEJL  I  DATA " ! END 
90  PR INT'DATA  OK . " 

98  PRINT"SAVES  SOM  ‘SPRITE  BASIC'" 

95  A*="SPRITE  BASIC" • POKE 187,PEEK(71> 

97  POKE 188 ,PEEK< 78 > i A=PEEK< 1 88 > *856 +PEEK<  187> 
100  POKE 183, PEEK<  A> : POKE 187 ,PEEK<  A  +  l > 

108  POKE 1 83 ,PEEK<  A  +8  > ! P0KE85 1 ,0:P0KE858 ,198 
104  POKE 185,1 ! POKE 186 , 1 :P0KE780,85 1 
106  POKE 7 8 1 ,85:P0KE788, 194 

108  SYS65496  s  END 

109  REM 

110  DATA  83,80,88,73,84,69,85,68,86,73 
180  DATA  68,69,77,85,76,84,73,67,80,76 
130  DATA  65,67,69,88,33,70,65,88,86,69 
140  DATA  83,80,66,76,79,75,75,79,76,76 
150  DATA  73,83,75,79,76,76,73,66,837,198 

160  DATA  49,193,117,193,145,193,880,193,14,194 
170  DATA  45,194,67,194,169,198,141,9,3,169 
180  DATA  75,141,8,3,96,38,115,0,801,95 
190  DATA  840,6,38,181,0,76,831,167,38,94 
800  DATA  198,76,174,167,168,0,38,115,0,157 
810  DATA  0,197,838,884,6,144,845,169,0,141 
880  DATA  855,807,133,851,169,198,133,858,160,0 
830  DATA  177,851,817,0,197,808,8,800,198,6 
840  DATA  144,844,76,156,198,168,6,838,855,807 
850  DATA  830,851,808,808,851,165,851,801,64,144 
860  DATA  883,169,0,76,855,174,173,855,807,10 
870  DATA  170,189,48,198,133,851,189,49,  198,133 
880  DATA  858,108,851,0,170,169,1,884,0,840 
890  DATA  4,10,808,808,858,96,38,115,0,38 
300  DATA  138,173,32,847, 183 , 165 ,80 ,801 ,8  ,176 
310  DATA  1,96,76,78,178,38,853,174,38,138 
380  DATA  173,38,847,183,165,80,801,8,176,838 
330  DATA  96,38,853,174,38,138,173,38,847,183 
340  DATA  165,80,801,16,176,888,96,38,186,198 
350  DATA  38,174,198,141,855,807,38,805,198,801 
360  DATA  0,840,18,173,855,807,13,21,208,141 
370  DATA  81,808,76,80,193,173,855,807,73,855 
380  DATA  45,81,808,141,81,808,38,805,198,801 
390  DATA  0,840,10,173,255,807,13,28,808,141 
400  DATA  28,808,96,173,855,807,73,855,45,28 
410  DATA  808,141,88,808,96,38,186,198,38,174 
480  DATA  198,141,855,807,38,205,198,801,0,240 
430  DATA  18,173,855,807,13,89,808,141,89,808 
440  DATA  76,88,193,173,855,807,73,855,45,89 
450  DATA  208,141,89,808,32,805,198,801,0,840 
460  DATA  10,173,855,807,13,83,808,141,23,808 
470  DATA  96,173,855,807,73,255,45,83,808,141 
480  DATA  83,808,96,38,115,0,38,138,173,38 
490  DATA  847,183,165,80,801,16,176,10,141,37 
500  DATA  808,38,881,198,141,38,808,96,76,78 
510  DATA  178,38,186,198,10,141,855,807,38,853 
580  DATA  174,38,138,173,38,247,133,165,80,174 
530  DATA  855,807,157,0,808,165,81,801,2  ,176 
540  DATA  883,168,138,74,32,174,198,198,1,144 
550  DATA  9,13,16,808,141,16,808,76,802,193 
560  DATA  73,855,45,16,808,141,16,808,38,253 
570  DATA  174,38,138,173,38,847,183,165,80,174 
580  DATA  855,807,157,1,208,96,38,186,198,141 
590  DATA  855,807,38,881,198,174,855,807,157,39 
600  DATA  808,38,805,198,801,1,144,13,173,855 
610  DATA  207,38,174,198,13,87,808,141,87,208 
680  DATA  96,173,855,807,32,174,198,73,855,45 
630  DATA  87,808,141,87,808,96,38,186,198,141 
640  DATA  855,807,38,853,174,32,138,173,38,847 
650  DATA  183,165,80,801,11,144,7,174,855,807 
660  DATA  157,848,7,96,76,78,173,38,186,198 
670  DATA  38,174,198,45,30,808,840,3,76,78 
680  DATA  194,32,115,0,801,58,808,249,98,32 
690  DATA  186,192,32,174,192,45,31,208,240,237 
700  DATA  32,253,174,76,160,168 


■  Sprite  Basic  til  Commodore  o  =  høj 

64  giver  dig  8  nye  komman-  1  =  lav 

doer  til  styring  af  sprites.  Spblok  nr.bloknummer 

Disse  kan  indtastes  som  al-  (11  -255) 

mindelige  kommandoer,  kollis  nr.linienummer: 

dog  med  en  pil-venstre  toran.  kollib  nr.linienummer: 

Når  programmet  er  indtastet,  on =1 

laver  den  BASIC  programmet  off = o 

om  til  maskine-kode,  hvorel-  nr=spritenummer(0-7) 

ter  dette  skal  lægges  ned  på 

bånd.  Siden  skal  det  loades  De  otte  kommandoer  er  selv- 
med  LOAD  ' '  ",  1 , 1 .  De  ekstra  torklarende  på  nær  kollis  og 
kommandoer  er:  kollib.  De  skal  begge  inde¬ 

holde  sprite  nr,  og  deretter  det 
Sprite  nr.on/oft.multicolor  første  linie  nummer  på  den 
(on/oft)  subroutine,  som  computeren 

Udvide  nr,x(on/oft),y(on,oft)  skal  hoppe  til,  hvis  der  sker  en 
Multic  mcl,mc2  kollision,  Det  kan  sammenlig- 

Placer  nr.x.y  nes  med  It  then  go  to.D 

Starve  nr.tarve.prioritet  til  tekst  Bo  Johansen 
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5ø  MODE  2 : faet® 1 
6ø  GOSUB  løø 

7ø  GOSUB  36ø  / 

8ø  GOSUB  39ø  // 

9ø  GOTO  41ø  (l 

løø  REM  rut  ine’  der  fastsaett-er  attack  ,  decay  j  sustain  09  r® lease  l 
llø  REM  for  ENV  ud  fra  indtastede  tal  \\  i 

120  PRINT  "fi:  attack  tid  1  -  127  (hundrededele  sek  )" 

13ø  PRINT  "D:  decay  tid  1-127  (hundrededele  sek  >" 

14ø  PRINT  "S’  sustain  niveau  1-15"  /  ^ 

15ø  PRINT  "R:  re lease  tid  1  -  127  (hundrede le  sek >"  \  (K 

16ø  INPUT  "indtast  R,0,S..R  "  ;  at  i  d/ ,  dt  i  dZ  ,  sus  l Z , r t i dZ  4Y 

17ø  1F  at  i  d/<  1 5  THEN  190  \N\ 

1 80  ass/=  1  =  aas/=  1 5  =  ast/=  I  NT (  at  i  d//  15;-  GOTO  2øø  V 

1 90  ast/=  1  =  aas/=at  i  dZ  =  ass/=  I  NT(  1 5/at  i  dZ )  * 

2øø  i  levZ=15-(aasZ*assZ >  * - 

21ø  ddroP  Z= 1 5-sus  1  Z 

22ø  IF  dfcid/<ddroPZ  THEN  240  -  — ^ 

23ø  dss/=-l  = dasZ*ddroPZ: dstZ=CINT( dtidZ/ddroPZ ) : G0T0  25ø 
24ø  dst/=  i :  das/=dt  i  dZ  ■■  dss/=  I  NT(  ddroP  ‘//dt  i  dZ  >  ■  dssZ=dssZ*- 1  x 
250  IF  rtid/CsuslZ  THEN  270  \ 

26ø  rss/=~l  :rasZ=suslZ:rstZ=CINT(rtidZ/sus.lZ>:GøTø  28ø 
27ø  rst/=l ;  ras/=rtidZ  :  rss/=CINT(  suslZ/rtidZ  > :  rss/=rssZ*-l 
28ø  sustZ=durZ-atidZ-dtidZ-rtidZ  W 

29ø  IF  sust/Cl  THEN  sustZ=l 

3øø  t2Z=tl//2  W- 

31ø  t3Z=tl'//3 
320  ZONE  6 

330  PR I NT  " start " , " attack " , , " decay sus ta i n " , , " re 1 ease " 

340  PR  I  NT  il  evZ ..  aasZ ..  assZ  >  astZ ..  das'; ,  dssZ ..  dstZ  ,1,8,  su.sf/  .■  ras'/  .•  rssZ , 
350  RETURN 

360  INPUT  "tonelaen9de  (i  hundrede  le  sek)  " ;  durk. 

37ø  GOSUB  17ø  REM  9enbere9n  ENV  Parametre 
380  RETURN 

39ø  INPUT  "overtoneniveau  for  2.  o9  3.  harmoniske  ( ø-7 ) " .; v2’z .■  v3Z 
4øø  RETURN 

41ø  REM  rutinen  omsaetter  tasterne  til  toner 

420  REM  tasterne  i  raekke  z-/  er  de  hvide  tangenter  ua 

43ø  REM  tasterne  mellem  s  o9  1  9 i ver  de  sorte  tangenter 
44ø  p'/=ø 

45ø  k*=INKEY$ : REM  to  emPty  inPut  buffer 
460  IF  k*=" 1 "  THEN  GOSUB  løø 
470  IF  kt="2"  THEN  GOSUB  360 


IF  k$="3"  THEN  GOSUB  39ø 
IF  k*="4"  THEN  fact=fact*2 
IF  k$="5"  THEN  fact=fact/2 
IF  NOT  INKEV(  71  )  THEN  P*/=478 
IF  NOT  INKEV(6ø)  THEN  P*/=451 
IF  NOT  I NKEY(  63  >  THEN  P '4=426 
IF  NOT  INKEY(  61  >  THEN  P/=4ø2 
IF  NOT  INKEY(  62 )  THEN  P '4=379 
IF  NOT  INKEY(  55  >  THEN  P/=358 
IF  NOT  I NKEY( 52 )  THEN  P/=338 
IF  NOT  INKEY(  54 )  THEN  P'/=319 
IF  NOT  I NKEY( 44 )  THEN  P/=301 
IF  NOT  I NKEY(  46  >  THEN  P '4=284 
IF  NOT  INKEY( 45 )  THEN  P/=268 
IF  NOT  I NKEY(  38  )  THEN  P '4=253 
IF  HOT  I NKEY( 39 >  THEN  P/=239 
IF  NOT  INKEY(  36  )  THEN  P '4=225 
IF  NOT  INKEY(  31  )  THEN  P '4=2 13 
IF  NOT  INKEY< 29 )  THEN  P/=2øl 
IF  NOT  INKEYOØ)  THEN  P'/=19ø 
IF  NOT  I NKEY< 22)  THEN  P/=179 
IF  NOT  INKEY(  19 )  THEN  P'4=l 69 
IF  P/=4Z  THEN  410 
4'/=P'4 

IF  PZ<  >ø  THEN  74ø 

GOTO  46ø 

REM 

REM  rutine  der  sPiller  tonerne 
REM 

PZ=PZ#fact 

o'/=P//2 

o2Z=P*//3 

ENV  1  /  aas’4  .•  ass54 .■  astZ..  das/ ..  dssZ ..  dst 
SOUND  l,P/,ø,  i  lev'/,  1 
SøUND  2; oZ>  dur/,  v2Z 
SOUND  4 ,  o2“4 ,  dur  / ,  v3/ 

GOTO  4 


Amsynth 


Dette  program  kan  være  en 
stor  hjælp  tor  dem,  der  synes 
at  ENV-kommandoen  på 
Amstrad  er  forvirrende.  Pro¬ 
grammet  simulerer  en  syn- 
theziser.  torstået  på  den  må¬ 
de  at  man  kan  indtaste  vær¬ 
dier  tor  Attack,  Decay,  Susta¬ 
in  og  Release,  hvorefter  prog¬ 
rammet  udskriver  de  tilhøren¬ 
de  værdier  til  ENV.  De  to  ned- 
erste  rækker  på  tastaturet 
kan  deretter  bruges  til  at  spil¬ 
le  nogen  toner  med  den 
valgte  ADSR. 

Attack  er  det  antal  hundrede- 
le  sekunder,  tonen  er  om  at 


4<  1 ..  8,  sust/j  ras/.’  rss/.-  rst‘4 


nå  op  på  fuld  styrke.  Decay 
er  det  antal  hundrededele  se¬ 
kunder,  tonen  er  om  at  falde 
til  sustain-niveau.  Sustain  skal 
ligge  mellem  0  og  15.  Relea¬ 
se  er  det  antal  hundrededele 
sekund  tonen  er  om  at  fade 
helt  ud.  Mens  man  spiller  kan 
A,  D,  S  og  R  ændres  individu¬ 
elt,  ligesom  oktaven  kan  flyt¬ 
tes  op  og  ned. 

1  ændrer  ADSR 

2  ændrer  tonelængde 

3  ændrer  overtoneniveau 

4  flytter  en  oktav  ned 

5  flytter  en  oktav  op  □ 

Jørgen  Rasmussen 
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Meteor 


20 
30 
40 
50 
60 
70 
80 
90 
100 
1  10 
120 
130 
140 
150 
160 
170 
130 
190 
200 
2  10 
220 
230 
240 
250 
260 
270 
230 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4  10 
420 
430 
440 
450 
460 
470 
430 
490 
500 
510 
520 
530 
540 
550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 


■  I  Meteor  tifCBM-64  gælder 
det  om  at  unslippe  en  af  de 
store  farer  i  universet,  de  store 
meteoritter,  som  svæver 
rundt  og  bliver  tiltrukket  at  de 
enorme  planeter.  Program¬ 
met  er  meget  struktureret  op¬ 
bygget  med  en  masse  rem- 


REM  »INITIALISERING* 

REM  **************** 

PRINTCHR*C  1 47 ) s  RESTORE  s  GOSUB  1080 
P0KE5328  1  ,0  :  P0KE53280  ,0  :  P0K.E650 , 123 
CLR  s  K=3  s  S =5  s  B= 1 : F  =  -5 : V =53248 : L  =  54272 

P0KE2040, 192  s  P0K.E204  1  ,  193:  P0KE2042 , 134  :P0KE2043 , 195 :  P0KE2044 , 196 
F0RQ=0T062 : READA : POKEQ  + 1 2233 , A : NEXT 
F0RQ=0T062 : READA : POKEQ + 1 2352 , A : NEXT 
FORQ=OTOG2: RE ADA : POKEQ + 124 16 ,A :NEXT 
READA: POKEQ + 12480 ,A:NEXT 
READA: POKEQ + 12544 ,A: NEXT 

P0KEV+40,7:P0KEV+41 ,2:P0KEV+42, 15:P0KEV+43, 13 
POKEV +29  ,3 
147>:P0KEV+21  ,0 


sætninger,  så  den  kreative 
programmør  kan  bygge  vi¬ 
dere  på  det.  Men  de  kan 
selvfølgelig  alle  undlades  De 
symboler,  der  er  i  nogle  print¬ 
sætninger  er  cursor-  og  tarve- 
symboler.  Ellers  er  program¬ 
mer  selvforklarende.  □ 

Carsten  Kock 


F0RQ=0T062 : 
F0RQ=0T062 : 
POKEV +39 , 1  i 
POKEV  +23 ,3 : 
PRINT  CHR3K 


FORQ  =  OTO 100 : Z  =  INT< 999*RNO<  1 ) > :POKE 1024+Z ,  46 : POKE  1 024 +Z  +54272 ,7 : NEXT 

FORQ= 1944T02023 : POKEQ , 160 : POKEQ +54272 ,9 : NEXT 

F0RQ=0TO2: POKEQ +1921 , 1 60 : POKEQ +56 1 93 , 13: NEXT 

F0RQ  =  0T039 : POKEQ+ 1 104 ,45 : POKEQ  +  55376 , 1 :  NEXTQ 

REM  ********* 

REM  »STYRING* 

REM  ********* 

X  = 1 60 : Y  =205 :PQKEV+7,0:P0KEV+30,0: POKEV  +  2  1  ,0 

FF  = INTC 200*RND<  1 ) +25 ) : CC =8 : SA= 1 7 : C=X : F =F +5 :  I FRND<  1 >  > . 35THENCC  =16 
F0RQ=0T0255STEPS:PRINT"aaBPKIBE"K"«  SFOINT  "F  "■  3PANE  "B 
Y=Y+ . 5 : I=Y:0=0:P=0: N=PEEK< 56320 )- 1 17:X=X+3*(  N=60RN=5 > -3 *< N=20RN= 

Y= Y  +  2  *(  N=90RN=50RN= 1 > -2*(  N=3) 

X  =  X+8*(X>=255>-8*(  X<  =0 > : Y=Y+2 *<  Y>=205> 

IF  Y<  60THEN  1000 
IF  PEEK<  V  +  30  )  =9  THEN  G0T0830 
I FY<  I  THEN  0=2 : P  =  4 : GOSUB 760 
POKEV +21 , 1+CC+O 

POKEV, X: POKEV +1 , Y: POKE V +2 , X : POKEV +3 , 

POKEV  +4 ,X : POKEV+5 , Y+25 : POKEV  +  2 1 , 1 +CC 
POKEV  +6 , C : POKEV +7  ,Q : POKEV +8  , FF : POKEV +9  ,Q 
POKEV+2 1 , 1+CC+O 


770 


,0, 126,0,0,255,0,0,255,0, 
,123,1  ,255,123, 1 ,255 ,123, 


126  ,0,0,255,0 


POKEV  +  2  1  ,  1+CC+P 
I F Y  >  = I  THEN  POKEL  +4 , 123 
IFPEEKC  V+30)=SA  THEN  GOSUB 
NEXT 
G0T0240 

REM  ************** 

REM  *DATA  RUMSKIB* 

REM  ************** 

DATAO  ,24,0,0,24,0,0,60,0,0,60,0,0, 

DATA  1 ,255 ,123,1 ,255 , 123 , 1 ,255 , 123 , 

DATA  123 , 1  ,255 ,128,0,24,0,0,60,0,0, 

REM  ************** 

REM  *DATA  FLAMME  1  * 

REM  **************  „ 

DATAO, 56, O, O, 120,0,0,124,0,0, 124,0,0,252,0,0,252,0,0, 126,0,0,63,0,0,63,123 
DATAO ,127,192  ,0,255 ,192,1  ,255 ,192,1 ,255 , 192,3,255 , 192,3,255 ,123,1  ,255  ,C  ,0 
DATA254 ,0,0 ,124,0,0,60,0,0,60,0,0,24,0 
REM  ************** 

REM  »DATA  FLAMME 2* 

REM  ************** 

DATAO, 24, O, O, 60, O, O, 62, O, O, 127,0,0,255, 128,1 ,255, 128^3,255,0,3,255,0, 1 ,254 
DATAO  ,  1  ,252  ,0,1  ,254  ,0,0,255  ,0 ,0 , 127 , 123 ,0 ,63 , 123  ,0 ,63  ,0  ,0 , 127 ,0 ,0 , 127  ,0 ,0 
DATA62 ,0 ,0 ,62,0,0,28,0,0,56,0 
REM  ************* 

REM  »DATA  METEOR* 

REM  ************* 

0ATA6 ,0,0,7,28,0,15,190,0,31 ,255,0,63,254 ,0 , 127,252 , 192,255,253,240,255 
DATA253 ,243 , 127 ,255 ,248 ,255,255 ,252 ,255,255 ,254 ,255,255 ,255 , 127,255,255 
DATA  127,255,254,63,255,255,63 ,255,255,31  ,255,254 , 13,255,254 , 13,255,252  ,3 


28  Soft  Special 


660 

670 

630 

630 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

310 

820 

330 

840 

850 


DATA 127, 252, 0,60, 56 
REM  ************** 

REM  »DATA  SATEL  IT* 

REM  ************** 

DATAO ,2 ,0 ,23, 1,0,22,0,123,16,1,64 ,24,222,32 , 13,254  ,0,3,255,0 
DA TA 3 1 ,128,15,19  1, 192,15,255,192,15,231,240,7,231 , 144,7,231  , 
0ATA254 , 30 , 1  ,20,4,0,43,6,0, 1 20 , O , O ,|52 ,0 ,0 , 0 , 0 
REM  *********** 

REM  »LYDRUT I NE  * 

REM  *********** 


,7,191, 123,7 
150,3,255,20 


P0KE54236, 15 : POKEL+5 ,63 : POKEL+6 ,63 : POKEL  ,25 : POKEL+ 1 ,5: POKEL +4 , 129: RETURN 
P0KE54296 , 15 : POKEL +5 ,68 : POKEL  +  6 ,63 : POKEL ,37 : POKEL + 1 , 1 7 : POKEL +4 , 33 
POKEL +4 ,32 : SA=255 : F=F+25 : CC=0 : RETURN 

P0KE54296 , 15 : POKEL+5 , 10: POKEL+6 ,63 : POKEL , 13 : POKEL + 1 , 1 : POKEL +4 , 123 : RETURN 
REM  ************* 

REM  »SAMMMENS TOD* 

REM  ************* 

G0^'JB790  :  F0RW=OTO5O  :  P0KE532S  1,0:  P0KE5323C  ,  255 
P0KE5323  1  ,255  :  P0KE53230 ,0  :  NEXTUJ 
K  =K - 1 : POKEL +4 ,123:  IFK=0THEN900 


360  P0KE5323  1  ,0 : P0KE53230 , 0 : POKEV  +21 ,0: GOTO  150 
370  REM  ********** 

830  REM  »SLUTNING* 

890  REM  ********** 

900  POKEL  +4,1 23 

9  10  PR  I  NT"  J"  :  POKEV +  2  1,0:  P0KE5323  1,5:  P0KE53230 ,5  :  PRINT"  .  a  mf  OVER  " 

320  PRINT "  »BWHWKRKKfaV  I L  DU  PROVE  IGEN  J/N" 

330  GET  A*: IF  A*= ” J "THEN40 
340  IF  A*="N"  THEN  END 
350  GOTO  930 
360  END 


1 


970  REM  ********* 

380  REM  *NY  BANE* 

390  REM  ********* 

1000  POKEL  +4 , 128 : B=B+ 1 : POKEV+2 1 ,0 : PR INT"J" 

ioio  pr  i  nt  "  aaoassffixxxrr  illykke  du  gennemforte"  :  print 

1020  PRINT "SQKKEEHELD  OG  LYKKE  fCD  BANE "B : S =S +5 : F =F +50 
1030  F0RQ=0T03000: NEXT: GOTO  150 
1040  REM  ******************* 

1050  REM  »START/ INSTRUKTION* 

1060  REM  ******************* 

1070  P0KE5323 1  ,7 : P0KE53230 ,7 


1030 

PRINT" J" 

:FØRQ= 

0T026 

: PR  I NT: 

NEXT 

1030 

PR INT" 

*  * 

*** 

*  *  * 

*#•* 

*  *  * 

*  * 

II 

1  100 

PRINT” 

ttt 

* 

* 

* 

*  * 

* 

t  " 

1  1  10 

PRINT " 

*  * 

** 

* 

*  * 

*  * 

tt 

II 

1  120 

PRINT" 

*  * 

t 

* 

* 

*  * 

t 

t  " 

1  130 

PRINT" 

*  * 

*  *  * 

* 

*  *  * 

•*** 

t 

*  " 

1140  F0RQ=0T09 : PR  I NT : NEXT 

1150  PR  I  NT  "  1 1 1  1 1 1  KKTifKreftB  Y  C.U.K." 

1 160  FORQ  =0T0 100:P0KE53281 ,2: P0KE53280 ,7 : P0KE5328 1 ,7 : P0KE53230 ,0 : NEXT 
1170  PR  I  NT  "  .J"  :  PR  I  NT  "  JBamBMI3U  ER  KAPTAJN  PAA  ET  RUMSKIB" 

1130  PR INT: PR INT"EN  FARE  AT  VED  FLYVE  RUMSKIB  ER  AT  MAN" 

1130  PR INT " KAN  BLIVE  RAMT  AF  EN  METEOR  INDEN  MAN" 

1200  PR INT"SL IPPER  FOR  TYNGDEKRAFTEN" 

1210  PR  I NT “S AA  PAS  PAA!!!" 

1220  PR INT: PR  I NT "DU  FA AR  FOR  HVER  BANE  50  POINT" 

1230  PR INT "FOR  HVER  LOBSKE  SATEL  IT  25  POINT" 

1240  PR  I NT "OG  FOR  HVER  METEOR  DU  SLIPPER  FORBI  " 

1250  PR  INT  "5  PO  I  NT  “  :  PR  I  NT :  PR  I  NT  "HELD  OG  LYKKE  ":  PR  INT  11  rtW>r;T^T-r-T-T;T±T;T;T-T-T-l  J  RETUR 

N" 

1260  GETA*: IFA*=CHR$<  13)THEN  RETURN 

1270  GOTO  1260 

1280  REM  **************** 

1230  REM  *  METEOR  BY  * 

1300  REM  *  CARSTEN  KOCK  * 

1310  REM  *  URTEHAVEN  12  * 

1320  REM  *  4300  HOLBAEK  * 


1330  REM  **************** 


Soli  Special  29 


Søsla 


SPEC¬ 


TRUM 


■  Du  er  kaptajn  på  det  vældi¬ 
ge  slagskib  "Fearless".  Den 
fjendtlige  eskadre  er  tor  et 
øjeblik  kommet  ind  i  række¬ 
vidde  at  dine  15  tommer  ka¬ 
noner.  Skyd  fjenden,  inden 
han  når  at  forsvinde.  ''Eng¬ 
land  expects  that  every  man 
does  his  duty !" 

Imperiets  fremtid  afhænger 
af,  hvordan  du  skyder  med  0- 


u\\  tasten  !□ 


Morgen  Poulsen  og 
Henrik  Brinck 


te' 

hf 

\éL 

ht- 


fHfiilj 


1  REM  ****SKIBS  SKYDNING**** 

2  FOR  (=0  TO  READ  a:  POKE  USR  "fl“* 
<,«:  NEXT  f 

3  D8T8  BIN  00000000 j  BIN  11  100000, BIN 

1 1 1 00000, 61 N  01111111.BIN  00111111.BIN  0 
001111), BIN  00001)11, BIN  00001111 

4  FOR  1=0  TO  7:  READ  a:  POKE  USR  "B"i 
1 , «  :  NEXT  1 

5  DATO  BIN  00111111, BIN  00111111, BIN 
11111111, BIN  11111111, BIN  11111111, BIN  1 
1111111, BIN  11111111, BIN  11111111 

6  FOR  f=ø  TO  READ  a:  POKE  USR  "C”  + 
t.a:  NEXT  I 

7  DATA  BIN  00000000,  BIN  00000000.BIN 
11111110, BIN  11111110, BIN  11111100, BIN  1 
1111 100, BIN  11111000, BIN  11111000 

8  FOR  1=0  TO  7:  READ  a:  POKE  USR  "D"* 
«,ai  NEXT  t 

9  DATA  BIN  00000000.BIN  00000000.BIN 
00011110, BIN  0001 1 1 10, BIN  øøøø) 100, BIN  0 
0011111, BIN  00011111, BIN  00111111 

10  FOR  1=0  TO  7:  REAO  a:  POKE  USR  "E"  + 
<,a:  NEXT  f 

11  DATA  BIN  00000000 , BIN  00000000.BIN 
00001 1 00, BIN  00001 100, BIN  00001 1 00, BIN  0 
0011111, BIN  00011111, BIN  00111111 

12  LET  HI=0:  LET  Fø=ø:  LET  SC=0 :  LET  A 
*  =  "  1  "  :  LET  <1=21  :  LET  p=0 

13  CL  S  :  PRINT  AT  10,01'HUOR  (1ANGE  FOR 
SØG  UIL  DU  HAUE?" :  INPUT  J A :  PRINT  AT  20 
,0;”0.B.S:SUAERHE0SGR8D  1  ER  DEN  SUAERES 
TE":  PRINT  AT  10,0; "SUAERHEDSGRAD  C 1-501 
?”  :  INPUT  R 

14  PAPER  0:  BORDER  ø:  INK  7:  BR1GHT  l: 
CLS  :  LET  B=29 :  LET  C=A :  LET  Y=0 

15  PRINT  AT  0,0; "SCORE=” >SC ; 

16  PLOT  0,87:  DRAU  255,0:  PRINT  AT  9,1 
»B  J  BRIGHT  0;"d":  PRINT  AT  10, B;  BR1GHT 
0  i "abc " :  PAUSE  5:  PRINT  AT  9,1*8;  BRIGHT 

0 ;  "e  "  :  PAUSE  R:  BRIGHT  1:  PRINT  AT  9,1* 
B;"  "J  PRINT  AT  10, B!"  "i  PRINT  AT  8, 
15;"!'':  PRINT  AT  12,  1 5  5  ' !  " 

17  IF  INKEY*="0"  THEN  LET  P  =  1 

18  IF  P=1  THEN  PRINT  AT  q,15;"  " :  LET 
q=q-2.75:  PRINT  AT  q,15;"  ” 

19  IF  q  =  ]0  AND  b=15  THEN  LET  SC=SC*lø 
:  LET  p=0:  let  Q=21  :  LET  Y=Y*1:  FOR  8=0 
TO  60:  BEEP  .005,10:  BEEP  .005,20:  BEEP 

. 005, A-20 :  BEEP  .005,A:  NEXT  A:  PRINT  AT 
0,0;"SCORE=“ ;SC ; :  IF  SC=100  OR  SC=1000 
OR  SC=5000  THEN  GO  TO  35:  GO  TO  15 

20  IF  Q=lø  THEN  PRINT  AT  10, 14  ;  "v ! /"  ■ 
LET  P=0:  LET  Q=21 :  FOR  8=0  TO  20:  NEXT 

A:  PRINT  AT  10, 14;" 

21  IF  b=0  AND  c  =0  THEN  GO  TO  1 

22  IF  b=0  THEN  LET  b=29:  LET  c=c-1 

23  IF  c  =0  THEN  PAUSE  150:  GO  TO  25 

24  LET  B=B-l:  PRINT  AT  0, 1 8  i "FORSØG=" ; 
cr  ":  OO  TO  16 

25  CLS  :  PRINT  A1  10,3;  DU  RAHTE  "  ;SC/ 
løi"  UD  AF  "  ;A ; '•  HULIGE" 

26  PRINT  AT  12,2;"  UIL  DU  PRØUE  IGEN 
C  J/NI  " 

27  IF  INKEY*="N”  THEN  GO  TO  32 

28  IF  INKEY*="n "  THEN  GO  TO  32 

29  IF  INKEY*=" j”  THEN  GO  TO  12 

30  IF  INKEY*="J"  THEN  GO  TO  12 

31  GO  TO  27 

32  CLS  :  PRINT  AT  10,0;'0ET  UAR  TARUEL 
I  GT  2":  PRINT  AT  14,2;  HUIS  DU  FORTRYDER 

TAST  J":  FOR  8=0  TO  1000:  IF  INKEY*=”J" 
OR  INKEY*="j"  THEN  GO  TO  12 

33  NEXT  8:  PRINT  USR  ø 

35  PRINT  8T  16, 1 3 ; "BONUS" 

36  FOR  S=ø  TO  10=  BEEP  .005,10:  BFEP  . 
005. 20:  BEEP  .005,30:  BEEP  .005,10:  BEEP 

.005,20:  BEEP  .005,10:  BEEP  .005,40:  NE 
XT  S 

37  FOR  S=ø  TO  4:  BEEP  .2,2:  BEEP  .2,10 
•  BEEP  .2,7:  BEEP  .2,12:  BEEP  .2,12:  BEE 
P  .2,10:  NEXT  S 

38  FOR  S=0  TO'  99.  uET  SC=SC*1  :  PRINT  8 

T  0,0,  SCORE  =  '!  :SC  :  BEEP  .005,10:  BEEP  .0 
05,2:  NEXT  S-  PRINT  8T  16,13;  :  GO 

TO  15 


Gode  miner  til 

sl@t  snil 

M  ■  ■  REMCLOSE,*,  00E  *♦• 

H  ■ 

™  ™  ™  ™  ?ø  PRINT '3!røniRiOT«»»«PLE’i\E  URIT. . . BEFIMDINO  CHRRRCTERS" • 

108  P0KE52 ■  AS  P0KES6, 48  CLR  P0KE56334, PEEK  <  36334  MWD2S4 
1 85  POKE l.PEEKO) RND25 1 


■  I  dette  CBM  64  spil  skal  du 
styre  Goblin  igennem  et  død¬ 
sensfarligt  minefelt,  mens  du 
samler  hoveder  på  din  vej. 
Du  styrer  med  tasterne  O  og 
P.D 

Niels  Laust  en 


lø  REMCLOSE«**  G0B~7  FOR  C -64  ♦♦♦ 

Sø  P0KE53280,2  F0KE53231,1 

?ø  PR  I  MT  "  n<5iIGTMHi®MMPLEfi$E  WRIT.  .  .  DEFINDING  CHRRRCTERS"  , 
løø  P0KE52 ■ 43  P0KE56 , 48  CLR  P0KE56334 , PEEK < 56334 > RNB254 
1 05  POKE 1  - PEEK (1 ) RND25 1 

103  F0RN*øT02ø47  POKEN+ 1 2288 ,  PEEK N+53243 >  NEXT 

109  FQRN-ØT07  POKEN* 12320  PEEK< N+54064/  NEXT 

110  IF  S>H$THENHS“S 

112  RESTORE  B=42» 1364  Zl=Z+54272  W=0  S=J  G*ø 

1 15  VS»542?6  RD=54277  SR-54278  UF =54276  LB*54272  HB*54273 

12ø  F0RX=ØT031  RERDR  PQKEX+ 1 2288  ,  R ; HEXT 

123  PØKE1 , PEEK< 1 "0R4  P0KE56334, PEEK' 56334 >QR i 

1 25  P0KE53272 , < PEEK <53272  > RND240 '  +  12 

130  PR  I  NT  "  nilHMMHIMIIS 1  .0  BIIH" 

14ø  PRINT "SWrøS"SPC<  17) "HS*"HS 

145  PRINT  "«SWrCGWWlKCIIDB<SI<ZEIrøIrøGC^^  "PsRIGHT" 

150  F0RI*1T01 18 

160  X=INT<RNB<0>*680>M144 

17ø  IFPEEK<X)bBTHEN160 

180  Pø KEX,£  POKEX+54272,0  NEXT 

19ø  F0RI»1T036 

135  GI =0 

200  X»INT<RND<0) 4630^1 144 

210  I FPEEK  <  X ) »BORPEEK  < X  > ■ 1 ØRPEEK  C X  >  »3THEN200 

220  I  FPEEK < X+33  >  »BRNDPEEK  <  X+4ø >  »BflNBPEEK  <  X+4 1 >  »BTHENPOKEX ,  3  P0KEX+54272v  0  01*1 
225  I FG 1  *  1 THENO 1 *G 1 ♦ 1  G0T0240 
230  P0KEX/1  POKEX+54272,0 
24ø  NEXT 

250  POKEZ, 32  Z*Z-4ø  Zl-Zl-40  IFZ<1 144THENZ*Z+760  Z1*Z1+760 

260  OETRS  IFR**"ø,,THENZ*Z-l  Z1«Z1-1 

270  IFRf  ®"P"THENZ*Z-M  Z1-Z1M 

280  IFPEEK<Z>*BTHEN41ø 

290  I FPEEK  <  Z  )  *  1 THENG0SUB330 

300  POKEZ / 0  P0KEZ1.0  FORT =1T0220  NEXT 

3 1 0  I F W«36-GTHEN J-S  G0SUB350  GOTO 1 1 ø 

320  G0T0250 

330  W-W+l  3=S+25  PRINT  POKEVS, 15  POKERD .  30  PØKESR ,  200  POKEWF-17 

34ø  PQKEHB.71  POKELB ■ 12  FORT* 1T090  NEXT  PØKEVS • 0  PØKEHB , 0  POKELB, 0  RETURN 

355  FORIslTOlø  GETCf  NEXT  REN  CØLLECT 

360  POKEVS, 15  PøKERD,30P0KE3R,2øø  PØKEWF.17  F0RI-1T017 
370  H=INT <RND<0 J*10)+21  L*INT <RND<0>*45)+210  PØKEHB, H  POKELB, L 
380  F0RT*1T080  NEXT  NEXT  POKEVS, ØPOKEHB,ø  POKELB, 0 
4øø  RETURN 

41ø  POKEZ, 2  POKE't«,  15  POKERD, 3ø  POKESR, 20ø  POKEWF,  123  POIEHB, 2  POKELB.  125 

415  F0RI-1T0400  NEXT  POKEVS, 15  PØKEHB, 0  POKELB, O 

420  F0RX*1 144T01323  IFPEEK <X><>1 THENNEXT 

430  IFPEEK<X)*1THENP0KEX, 3  NEXT 

440  J=0 

445  F0PI=lT0lø  GETCf  NEXT 

450  PRINT  ■'cCBnUTOWOrølJinB^'LHV  ROR  IH?  <Y/N>H  POKE646,  14 
465  GETCJ  IFC*-,,MTHEN465 
470  IFC$*"V"THEN110 

4$0  P0KE53272, 21  PØKE53280, 14  POKE532S1 ,6  P0KE52-50  P0KE56  50  PRINT'TJSEE  VR'" 
500  PRTR 1 26 , 2 1 9 , 2 1 9 , 255 , 165,90,90, 165,60-66, 165  129, 153, 165,66,63 
5 1  ø  L'RTR  1 7ø ,  35 , 1 7ø  -  85 , 1 26 , 21 3 , 255 , 1 83 ,  6ø  ■  66 , 165,1 23 , 1 6?,  1 53 , 66 , 60 
520  DRTRø, ø,ø, ø.Ø, 0,0,0, 


Talkode 


■  Programmet  til  standard 
VIC-20  kan  du  oversætte  bi¬ 
nære  tal  til  decimaltal  og  om¬ 
vendt.  Programmet  er  selvfor¬ 
klarende  da  det  selv  spørger 
om  de  ønskede  oplysninger 
Niels  Jørgen  Bertelsen 
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lu  KLH  mjvfciiiifc.ru i 

i'J  PKilt!  mn.\  i-li  rltNU  flWtsUl  NJ i .  Ufc».H.-tlN.  •  NiL.  BIN.  -DfcCM.  " 

A»  PKINT"  N.lJ.  i  U I  HL  UBSI  Kl  FT  "  •  NiM.  ;.UJI"  1NPUI"MNsHK.  KUK  VHLO  ",V*  V*VHLvV*>. 
40  UNV* •"  I UIUMU  •  .-.OU0  •  J»JV  •  AUOU 

. U  Gu I ulu 

1UUU  KfcM  KKUUl  -  i  dl  i.  IIIHI  -B1HMLK 

lUlu  Kfc  ;-IUKh  ULK  (  "K. .-  1  IU8  KfcHUB*1 Xj  .  tf'.X t  l(b,.l 

IU2U  KK1NI  ".TllitøkUI.  B1N.S1N«  .  (NMj  I  "  WiU'tU'l.  i»J  D=VHL 1  bSj 

l'JA«  1K  H  .UUKH  c ' JUK  i'  INI  •  !•  »UKLbNv L'4  •  .1  lHENlUW 

1U4W  RklNI  .1*1"  i HB*  1U  •  J”  •  "  stsTiU'fcUI,  iT.1  i  .TilblHMfcK  -  .Til-  - - » - "  .  IhBv  1U  •"  I" 

1U5U  KLlKX-llUc.  IKB-fc- ..  ,.-UlHtND=D-Bv.:  '  = 

1  U*>U  Ntxr  KKiHI  IHB-  4 -nJ  .  1MB*  lu  •  "  l" '•  iHfc  -  U  •  ■  K UK.  .—  II ijy  HR  1 HTB J •  X.' ,  NEXI  PKINI 

1»J.  U  PK1M1  I HB*  lu  ••  i  ■  sT.1 - - - -  »lilUNiM  0  Kuk  GENTHb,  "  ,  "tfiTJ  II  FOR 

I  ILNO,  " 

1  U«U  FK INI"  WiTtl  ?  KUK  611*'" 
luyu  uLIUI  lFUf-"U"  IMblllUUU 
11UU  1FUJ-"H" IHfcMlU 
111*«  11  '.il-  >"  IHfcN  Aui». 

1 12U  i-UlUlU.^U  Kb II  •sLUI  KKUi.tr.  1 

2WUU"  KtM  KKUCEo  4.  BINHbk-iitUIlHL 

tulu  KtSluFt  ULK  KUK. . - 1  I U8  KtHlifcci'  •  •  B*  •  NtXI 

u.’U2U  kK |N I  ".Idill  lN.  *libU1. MR1HK - '  INPUT " IMBIN.  KUBE  ",BU  lFLENlBU>08TH 

EHtUUU 

i1?  >U  FOKX*  1  I  Ud  lHlll'l- bu..-..  I  IHtNB=B^BvXj  uOIOi'Ooø 
*.040  1  Fli llii1.  Bl 4  ....  1  is-ønHENAteU 
2U5U  U»J  I  UtWUU 

<:u6w  ne:;i  kk  ih  i  •  ;w  ihik  i  i  r .  iWitt:  ih.  i^mdecm.  - ,  .M - 1 - •• ,  trb«.  i 

i  r  i" 

*U7U  PKINI  •  AV  -  Bl  i  •  1  HIN  1 1  f ,  "  r  .  TRBU4  j  ,  D,  THBU  1  >,  "  I" ,  "Al - - - " 

2UUU  PKINI  MMMlhM  O  FOR  UENThO,  " NAI  M  FuR  MENU ,  “ ,  “  IfsW  6  FOK  SLUT'" 

2U3U  L4. 1 IJ4  1FUP-'  U"  IHtN2UU0 

21UU  lFUi- "ir  THENlU 

cJ  1 1 U  I F  Ui  -  "  S  "  I  HLl  (*.*UUU 

21afU  UU 1 02090  Ktn  iLUI  PROCES  i 

JUUU  REM  KKuut  :•  J  IuIhL-UBSKKIF  I 

>ulu  KtrluKL  CLK  FORA-irOS  KLmBB*'X^.B*.Xj  NEXI 

AJtU  Fk  INI  IMillulNL-UBi-r  pif  r«W*F - "  •  "»WThST  S  FOR  STOP" ,  "«MiF  UDS 

KK'  1 F  I  EN '  " 

3030  FuKW-1  lUlMUU  NEX I  F'R  1 N I  " R»"  I  hBv  10  V  I "  .  "  AWlEuM.  All'sWBINHER" ,  "'Al - 1 - 

JU4U  PKINI  iMBv  lu  •'  I"  F0KBE-WT0255  B-Bt  F0R'X=1T06  IFD-B<X>^«OTHENB*D-B».Xj  B»i.Xj*" 
1" 

<U'..U  Ut  I  Ui  IFUi-  -  '  IHkN  JUoO 

3UoC'  Ntl  KKlNI'iTArDE  IHB- 10>"  l"THBvUM.  F  OKa=  1 1 08  KK  I  NT  Bi  v  X  /  -  NEXI  PRINT 
30.  U  Kt^l'-iKL  F’OKX-1 1 00  RhHBBi'  Kf ,  X  >  NEXT  NEXT  BE 

3080  PR  INI"  Al - ‘ - "  F  OPW=  l  I  u  1 000  NEX  T  W 

8065  PR  INI"  tm  u  F  UK  utN  I  mu  ■  “ ,  "  M  F  uP  MENU ,  "  ,  "  »W  S  FOR  STOP !  " 

3080  Ut  I Ui  I F  Ui« "O" | HkN  JUUU 
6 1  UU  IFIJi- "11“  1  HEN  1U 
81 1 0  1FUJ  =  "6" I HtNSuUU 
6120  UOTUJOSO  REM  5LUI  F'Kfciut«.  8 
5000  PRINT "D"  ENB 

looou  BMlM  U- 126,0,64,0,8^,0, 16,0,6,0,4,0,2,0, 1 


Soit  SDecial  3 1 


O  G0SUB9000IG0SUB 10000 

1  LI-3IPRINT"  JD00000  POINTS  LIV  3 " : U*7 : G0SUB9200 » LE* 1  * T  =  0 


2  P0KE53231,0 

3  GOSUB  9000 

4  P0KE30000 / 1  s  P0KE30005 ,0  :  P0KE30001,0 

100  SYS25000  s  IFPEEK<  30005 )= 1 THENG0T030000 

101  IFPEEK(  30005  )<  >2THENG0T0  120 

102  I FU  *255 THENT  *  1 : U  *7 

103  I FU* 1 27THENU  =255 

104  I FU  *  63THENU  *  1 27 

105  I FU*  31THENU*  63 

106  IFU*  1 5 THE NU  *  31 

107  IFU*  7 THE NU  =  15 

103  P0KE30000 , 1 : P0KE30005 ,0 : P0KE3000 1 ,0 

109  FORA- I30T990STCP- | i POP E33?«9 . A » SVS?OOOC » 5 VS20S00 « POF EU427 3 , J 50 -A : IC aT ; o0T040 
OOO 

I  JO  G0SUB9OP0  !FORA«9T0900*K>'Ti  |F»» I TME*P0PE532 7 l  , £32  i  P0KE532  "  , 

III  1FPECF'  I023>  >49TWEr^0F&2041  ,  I  1 
I  1 8  GOTO  100 
ISO  PCM 
?O0  GOTO  100 

**900  P0FE33E69,  U«P0FE?04C>,  l  3  i  P0KE532-48  .200  i  P0FE33E49 , 130«FES_0PE 

9001  POFE338SO,  I IP0KET923I . l00tP0KE2041 , 14 
900?  FORA “33233T033264STEP?  s  POP  EA , 40 > NCXT 

9003  POPP»204?T02047!POKE«  ,  !3«f'CyTiP0KE3327  1  ,  O « P0KE33277 ,0 

9004  FOPA-53?32T053e63STEl>B!POFEA,Rr«'  1>»2?3:ICXT 

9003  P0KE34296. 1 3 « P0KE34277 , 1 90 « POF E34278 , 249  s  P0FE34276  ,  I29SP0F.E34273  ,8& 

9006  POKE34272 . 100 

9010  FOP*«33287T033294tREAOSiPOrE9,S!FCxT 
9020  REM  OATA  POR  PAPvCP  T IL  8TP | TE 
9030  OATA | I  , |  ,2, 4, 7. 9. I  .3 
9100  RETURN 

9200  PORA-49 I32T0494001 POPEA ,PNO<  I >  *32 ■ NCXT i  POPE 33280 , I 

9210  P0RA-32T039IF0RB-0T024 IPOPE 1024*A*B«40, 160 : POP E3 32 96  *A  «B  *40 , I  MCXTsfCXT 

9220  P0RA>33336T036293i  IF  RND<  I  >  > . 3THENP0F  EA ,  I 

9221  f«KT 
9300  RETURN 

lOOOO  REM  DATA  TIL  MASF  114*006  RUTINER 

10002  REM  OATA  FOR  RUMSPIB 

10003  FORA »832 TO 896 «  PEAOS I POPEA ,t « NCXT 


100 10  ORTRO.0,0,0,12,0,0, 12,0,0, 12,0,0, 12,0,0, 12,0,0,30,0,0,63,0,0, I  13 , 128 ,0  ,243 

10020  0RTR192,0,243, 192,1 ,223,224, I ,223,224,1 ,223,224,7,233,248, 13,233,232, 13 

10030  0RTR233.232, 14 , 1 2 ,28 , 1 2 ,30 , 12 . 12 ,63 , 12 ,0 ,0 ,0 ,0 , O ,0 

10030  REM  ORTR  TIL  DOBBELT  LRSER 

10033  F0RR-704T0737 1  REPOS «  POKER ,S  * !«XT 

10060  ORTRO ,32,4 ,0 ,64 ,2,0 ,224 , 7 

10061  0RTR0,32,4 ,0,64,2,0,224,7 

10062  OR TRO ,32 ,4,0 ,64 ,2,0 ,224 ,7 

10063  DR TRO , 32 ,4 ,0,64 ,2,0, 224 ,7 

10064  0RTR0,32 .4 ,0,64 ,2 ,0,224 ,7 
10063  ORTRO , 32 ,4 ,0,64 ,2 ,0,224 , 7 
10100  REM  ORTR  FOR  LRSERSTRRRLE 
10104  F0RR-897T0897 ♦ 1 24  t  POKER ,0 1 NEXT 

10103  FORR -897T0943STEP3 1  REROS  t POKER ,S i  NEMT 

101 10  0RTR1 ,2,4, 13, 1 ,2,4, 13, 1 ,2,4 , 13, 1  ,  2,  4,  13 

10200  REM  ORTR  TIL  UFO'ER 

10203  F0RR-960T0991 « RERDS » POKER ,S i  NEMT 

10210  DRTR0,24,0,0, 126,0, 1 ,233 , 128 ,7 ,233 ,224 , 3 1 ,233 ,248 ,30 ,68 , 76 ,3 1 ,233 ,248 

10220  0RTR7 ,235 ,224 , 1 ,233, 128,0,126,0,0,24 

10300  REM  ORTR  TIL  STYRINGSRUTINE 

10303  FORR-20000T02007I i  REROS : POKER ,S i NEXT 

10310  DRTR174, 1 ,220,224,247,208,13,238,0,208, 174,0,208,224,233,208,3,206,0,208 
10320  ORTR I  74 , 1  ,220,224,231  ,208, 13,206.0,208, 174 ,0 ,208 ,224 ,24 ,208 ,3 ,238 ,0 ,208 
10330  DR TRI 74, 48, 1 17,224,0,208,24, 174,1 ,220,224,239,208, 17,169,1,141,48,117,173 
10340  ORTRO ,208 , 141 ,2,208, 173, I ,208, 141 ,3,208,96 
10400  REM  ORTR  TIL  STYR.  RF  LRSERSTRRRLE 
1 0403  FORR "20  1 00T020 1 43  s  REROS «  POKER , S  i NEXT 

10410  ORTR 174 ,48,1 17,224 , 1 ,208 , 13,206,3,208, 174,3,203 ,224 ,0,208,3, 163,0,141,48 

10420  ORTR 117, 174,3,208,224 , 1 ,208,6,206,21 ,208,206,21 ,208.224 , 143,203,6  ,238 ,21 

10421  0RTR208,238,2I ,208,96 

10300  REM  ORTR  TIL  BEVREGELSE  RF  UFOER 
1 0303  FORR ■20200T020269 : REROS  s  POKER , S  s  NEXT 

10310  0RTR206 , 3 , 208 ,206 ,3 , 208 ,238 , 4 , 208 ,238 , 7 , 208 ,238,7, 208 ,238,6 ,208 ,206 , 9 ,208 

10320  0RTR238, 8, 208, 238, 8, 208, 238, 8, 208, 238, 1 1 ,208,238, 1 1 ,203,238, 1 1 ,208 

10330  0RTR206 , 10,208,206, 13,208,206, 13,208,206, 12,208,206, 12,208,206, 12,208 

10340  DRTR206 , 13,208,206, 13,208,206, 13,208,238, 14,208,96 

10600  REM  ORTR  TIL  POINT  TRELLER 

10603  FQRR-20300T020349  i  REROS  i  POKER  ,5  INEXT 

10610  ORTR 169 ,47 ,141 ,0,4 ,238,0 ,4 ,169,47,141,1 ,4,238, 1,4,169,47,141 ,2 ,4 ,238,2,4 . 
10620  0RTR96, 174,2,4,224,37,208,243, 174, 1 ,4,224,37,208,230, 174,0,4,224,37,208 
10630  DRTR213 ,24 , 144 ,207 ,96 
10700  REM  ORTR  TIL  TJEK  RUMSKIB 
1 0703  FORR -20400T020443 : REROS : POKER , S l NEXT 

10710  DRTR 1 74 , 30 , 208 

10711  DRTR224 , 3 , 208 , 3 , 32 , 192,93 

10712  0RTR224 ,9 ,208 , 3  » 32 , 132 , 93 

10713  0RTR224 . 17,208.3,32, 192,93 


■  Dit  F- 1 6  lly  er  under  en  hvir¬ 
velstorm  blevet  suget  ud  i  ver¬ 
densrummet,  hvor  du  for  før¬ 
ste  gang  ser  nogle  mystiske  ly¬ 
sende  fartøjer,  de  såkaldte 
UFO 'er.  Flyvestation  Kamp 
giver  dig  besked  på  at  skyde 
dem  ned  med  alle  midler. 

Jo  længere  du  kommer,  de¬ 
sto  flere  retninger  kommer 


UFO'erne  fra.  For  hver  gang 
sværhedsgraden  stiger,  skal 
du  lande  for  at  få  afkølet  din 
laser-kanon. 

Du  styrer  med  joysticket  i  CBM 
64 's  port  1 .  Spillet  er  i  maskin¬ 
kode,  men  skal  indtastes  i  BA¬ 
SIC.  □ 

Michael  Lauridsen 


F-16  Delender 


32  Soft  Special 


DATA824 ,33.208,3,32, 132,93 

DATAS 24 ,63 , 208 ,3,32, 1 92 , 93 

DATA224 ,129, 208 ,3,32,192,93,96 

REM  OATA  TIL  TJEK  UFOER 

F OR A -20300T0206 30 : READS »  POKER ,S « NEMT 

DATRI  74 ,30,1 17,224 ,6,208, 13, 162,0,206,21 ,208 ,232 ,224 , 4 ,208 ,243 , 32 , 101,7 
DRTR 1 74 ,30 , l 17.224, 10,208, 1 3 , 1 62 , O , 206 ,2 1 ,208 ,232 ,224 , 8 .208 ,248 , 32 , 101 , 
0RTAI74 ,50, 1 17,224 , 18,208, 13, 162,0 ,206,21 ,208 ,232 ,224 , 16,208,248,32 ,101 
DRTR 174 ,30 , 1 17,224,34 ,208, 13,162,0,206,21 ,203 ,232 ,224 , 32 ,208 ,248 , 32 , 10 1 
DRTR 174 ,30 , 1 17,224,66 ,203,13, 162,0,206,21 ,203 ,232 ,224 ,64 ,208 ,243 ,32 , 10 1 
DRTR 1 74 ,30,117 ,224,130,208, 13, 162,0,206,21 ,203,232,224, 128,208,248,32, 1 
DRTR79, 174 ,49, 1 17,224 ;6, 208, 3, 32 ,192,93,96 
REM  DRTR  TIL  UFOER /'SKAERhCN 
F0RR-2D700T020772  »  READS  »  POKER ,S «  NEXT 
OATA 174, 3, 208, 224, 40, 203, 3, 169,233, 141 ,3,208 
DRTR 1 74 .7,208,224,233,208 ,3.169.  40,141 ,7,209 
ORTR 174,9 ,208 ,224 ,  40,208,3, 169,233, 141 ,9,208 
0RTR174 , 1 1 ,208,224 ,233,208 .3,163,  40,141,11 ,208 
0RTR174, 13,208,224,  40,208,3,169,233,141 ,13,208 
DRTR 1 74 , 13 ,208 .224 ,  40,208 .3 , 169,233 ,141, 13,208 ,96 
REM  DRTR  TIL  SCROLL 'STJERNER 
F0RA"20800‘r02D866  » READS *  POKER  ,S «  ME,XT 
ORTR 1 62 ,233 , 189 . 192  .6 . 137 ,232 ,6 ,202 ,224 ,233 ,208 ,243 
ORTR 162 ,233 , 189,192,3, 137,232,3,202,224,233,203,243 
ORTR I 62 ,233 ,189,192,4, 137 ,232 ,4 ,202 ,224 ,253 ,208,243 
„DRTR 162 , 192 , 189 ,  40,4,137,  80.4,202,224.233,208,243 
0RTR238  ,34 . 1  1 7 , 1 72 , 34 , 1 1 7 , 1 90 .0 , 1 92 . 1 69 , 46 , 1 37 , 30 , 4 , 96 
REM  ORTR  TIL  HOVED  I NOHOLO 
FORR ■23000T023038  *  READS  »  POKER ,S  *f *XT 
OATA 174, 30, 208, 142.30. I  1 7 , 32 , 220 , 80 , 32 ,2C ,80 

0RTR32 ,32 .78 ,32 , 132,78,32, 132,78,32,232,78,72,  l  *'6 ,73,32  ,64  ,81 

ORTR 1 74 ,33,1 17,224 , 1 ,208,6 , 169, 1 , |4 1 ,£  .  1 32 ,96 

DRTR 174 ,21 ,208,224, 1 ,208,6 , 169 .2 , 14 1 ,33 , 117 ,36 

0ATA76, 168.97 

REM  DRTR  TIL  00 

FORA-24000T024093 » REROS: POKER ,8  s NEXT 
ORTR 169 .1,141,33,117,36 
RETURN 
LI -LI -I 

primt  -  MMMMM— —BMMa  »L I » P0KE34273 , 1 
IFLI-OTHLN  F OPR ■ O TO  1000  »NEXT! P0KE33269 , 0 » G0TC73C 00 
W»PEEK<  33248  »IUU-PEEK<  33249  >  i  IFW'2S0THEHI  I«2? O 
FORE «0T0 100 

P0KE33248,W-3*RN0<  1  '  *  I O » PO  E33249  .UW-3  *RNO-  1 
NEXT 

G0SUB9000  »  P0KE30003 , 0  *  POKE3000  I  ,C»RGKE3CGC:  »  C-C-TC2 

pp  t  kit  11  ■  ■  ■  r  •<  OVER' 

P0KE34296.0 

IFPFFKf  ■*63£L>_i_,‘2'*9WEN3-‘n  i  o 


PRINT-  JM-  :TRB<  12>"MICHAEL  LRUR  I  DSEN“  :  PR  I  NT  M  M 
PR INTTAB<  14 >" AB*  •***•« ••**•" 

PRINTTRB<  14>*aa*BF-  16  JAGER«*' 

PRINTTAB'  14) '«*•*****•****- 
PRINT'!' i  TAB<  17>“!3BAME' 

PR  I  NT  *  !“  t  TAB<  17)“  U  WlSTRUKT  I  ONER  ' 

GETAfs IFR6* ’G “THENGOTO I 
IFH*«* I “THENG0T04300O 
G0T03303 1 

FORR ■ 1 984  -  1 20T02023 « POKER , 32  « NEXT 

PRINT'  J  TRB<  RND<  R  )  *23  >  *  «XV 

PRINT- 
PR  I  NTTAB<  34  )  J  “  l  LE 

FORR ■PEEK<  33249 )T02 1 7STEP . 3  *  P0KE33249 , R i SVS20000 
P0KE34276.33 

IFRNO<  1 X  .3TMENP0KE33248 ,PEEK<  33248  > ♦ 1 
IFPEEK< 36321  ) -233THENA-A *3 
P0KE34276 , 17 
t-CXT 

F0RR"0T020i IFPEEK< 33248*31 > ■ 1 THEN40030 
KEXT 

G0T030000 

REM 

PRINT  -  JgBHWITBWWWBr  tÆJJJtTJÆiKEl-  1 GHT  ON* 

FORR  »0T0200O  »NEXT 

FORR- I  TOLE  « SYS20323  »NEXT 
LE "LE ♦ I » GOTO  1 10 
REM  INSTRUKTIONER 

PRINt“J*)TRB<  |9>-a*-16  JAGER*  »PRINT 
PR  1NT'!3P  ILLET  GRRR  UO  PRR  AT  SKYOE  UFOERNE" 
PRINT’BDG  LANDE  BLODT  PRR  PLATFORMEN." 

PRINT'k,MAN  STARTER  MEO  EN  LASER  OG  3  tlV" 

PRINT  -'W-iAAR  MAN  HAR  KLARET  EN  LEVEL  OG  HAR" 

PR  I  NT "■20000  ELLER  FLERE  POINT  SAR  FAAR  MAN" 

PRINT"  »OBBEL  TLRSER “ 

PR1NT-IHVIS  MAN  KLARER  OEN  BANE  MEO  6  UFOER  * 
PRINT-HSAA  KOMMER  OEP  2  UFOER  MEN  STORRERE’ 

PR  I  NT  i  PR  I  NT*  »=»0  I  MT »  - 
PRINT“O-'P0  !1000- 
PRINT-^RNOE  !1000*LEVEL  ’ 

PRINTsPRINT-aCONTROL  I  PORT  1  * 

PR  I NT »PR  I NT »PR  I NT « PR  I NT  *  ff>RESS  SPACE “ 

GETA*»IFA»-“  -THEN  33020 
G0T043130 


12  REM  *  MRSTER  MIND  * 

13  REM  *  LAVET  RF  RNKER  ROSENSTEDT  * 

14  REM  •  CC)  28/12  190  * 


1?  REM  ********************************  H  H  V 

20  POKE  33200,9  POKE  33281,9  ■  ^ 

30  PRINT  CHRf  C 144)  “ 

40  PR  I  NT  "IT 

30  PRINT"  MRSTER  MIND" 

32  A-INT<6*RND<1)> 

34  B-INTC6*RND<1>> 

36  C-INTC6*RND<1>> 

38  D-INTC6*RND<D> 

60  PRINT "JEG  HflR  FUNDET  4  FARVER  UD  RF  DISSE  " 

70  PRINT "SORT C S) , HVIDCH) , RØDCR) , GRØNCG) » BLRCB) #  GUL<V>.M; 

00  PRINT"  INDTAST  DIT  ORET." 

82  0-04-1 
03  P-P+2 

90  OET  Rf  IF  RI-""  THEN  90 
100  IF  Rf »"S"  THEN  1-0  M-0  GOTO  166 
110  IF  R$-"H"  THEN  I-l  :f1-l  GOTO  166 
120  IF  Rf-"R"  THEN  I-10M-2  GOTO  166 
130  IF  Rf»"0"  THEN  1-3  M-3  OOTO  166 
140  IF  R»-"B"  THEN  1-14 : M-4 : OOTO  166 
130  IF  RI-"V"  THEN  1-7 : M-3  GOTO  166 
133  IF  Rf-"P"  THEN  161 

160  OOTO  90 

161  P-2  POKE  0*404- 1183,32  POKE  0*4041107,32  POKE  0*4041189,32 

162  POKE  0*404 11 91, 32  GOTO  9ø 

166  I F  P-2  THEN  E-M 

167  IF  P-4  THEN  F-M 

168  IF  P-6  THEN  0-M 

169  IF  P-8  THEN  H-M 

170  POKE  0*4041 1034P, 01  POKE  0*40435433*P, I 
180  I F  P<>8  THEN  83 

103  OET  Tf: IFTf-" "THEN183 
186  IFTf-"P"THEN161 
190  L-0 ; K-0 

193  A<1>-ØBCD-0:C<1)-ØD<D-0:E(D-ØFC1)"0:GCD-0:HCD"0 

200  IF  R-E  THEN  L-L41 : RC 1 )-l : E< 1 )-l 

210  IF  B-F  THEN  L-L41 : F<1 )-l : B< D-l 

220  IF  C-G  THEN  L-L+l : CC 1 >*1 0< 1 )-l 

230  IF  D-H  THEN  L-L41  DC  1 >  —  1  H<1)-1 

240  IF  fl-F  RND  ACD-0  AND  FCD-0  THEN  K-KM : FC1>-1  fl< D-l 

230  IF  R-0  RND  ACD-0  RND  ØCD-Ø  THEN  K-K+lGCD-1  ACD-l 

260  IF  R-H  RND  ACD-0  RND  HCD-0  THEN  K-K41 : RC 1 )-l : H< 1 )-l 

270  IF  B-E  RND  BCD-0  RND  ECD-0  THEN  K-K+l  :  BC  D-l  :  EC  D-l 

280  IF  B-0  RND  BCD-0  RND  OCD-0  THEN  K-K41 : BC 1 >-l : 0< 1 >-l 

290  IF  B-H  RND  BCD-0  RND  HCD-0  THEN  K-K+l  BC1)-1  :  HC  D-l 

300  IF  C-E  RND  CCD-ø  RND  ECD-0  THEN  K-K+l :CC1)-1 :  EC  D-l 

310  IF  C-F  RND  CCD-0  RND  FCD-0  THEN  K-K+l  CC  1  )-l  :  FC 1  )-l 

320  IF  C-H  RND  CCD-ø  RND  HCD-0  THEN  K-K+l :CC1)-1  HCD-1 

330  IF  D-E  RND  DC1)-0  RND  ECD-0  THEN  K-K+l  DCD-1ECD-1 

340  IF  D-F  RND  DCD-0  RND  FCD-0  THEN  K-K+l :DC1>-1  FC1)-1 

330  IF  D-G  RND  DC1)-0  RND  0<1)-0  THEN  K-K+l  DCD-1GC D-l 

360  IF  L-4  THEN  410 
370  PRINT  SPCClø> 

380  PR I NT "SORTE : "L "HVIDE = "K 

390  IF  0-18  THEN  PR I NT "DU  HflR  BRUGT  18  FORSØG, OG  DER  ER  IKKE 
40ø  P«ø  GOTO  82 
410  PRINT  SPCC40; 

420  PR I NT " DU  ORETTEDE  FARVERNE  PR  "O"  FORSØG."  END 


Mastermind 


■  Med  dette  program  får  du 
en  usædvanlig  flot  Master 
Mind  på  din  Commodore  64. 
Når  programmet  starter,  tin¬ 
der  computeren  4  ud  at  6  mu¬ 
lige  farver,  som  du  skal  gætte 
ved  at  indtaste  forbogstavet. 

MERE  PLADS. "END 


Hvis  du  mod  forventning  tryk¬ 
ker  på  en  forkert  tast,  rettes 
ved  tryk  på  "P".  Etter  endt 
indtastning  trykkes  RETURN, 
og  du  tår  at  vide,  hvor  mange 
sorte  og  hvide  brikker  du 
har.D 

Anker  Rosenstedt 
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Cosmic  Chaos 


10  BORDER  ø:  RAPER  ø:  INK  6:  BRIGHT  1- 
CLS 

20  BEEP  .2,10;  BEEP  .2,5 
30  GO  SUB  1000 
40  LET  hs=ø 
50  GO  SUB  2000 
60  LET  a=21 :  LET  b  =  15 
20  LET  sc=ø:  LET  las=50 
80  LET  t i u=5 

80  PRINT  AT  0,0;  PAPER  2,  INK  7 

";at  0,0;  "Se 

'  ise  ;AT  ø,  8  i  'Las  :  ' ; las ;AT  0,  16;"Llvji"  ;  1  i 
y;AT  0,23;  "HiSc  ;he  :  PAUSE  løø 


■  Din  værste  yndlingsfjende  dags,  fordi  den  ikke  har 
har  haft  held  med  at  gen-  været  brugt  i  årevis,  men  det 
nembryde  den  strålebarriere,  vigtigste  er,  at  den  stadig  dur. 
der  skulle  redde  dig  og  dine  I  Cosmic  Chaos  kommer  du 
fra  ødelæggelse  og  død  på  ud  i  en  vild  rumkamp,  hvor 
din  idylliske  planet  Eldorado,  du  får  hænderne  mere  end 
Nu  er  der  kun  én  udvej .  Du  fulde  med  at  holde  de  fjendt- 
må  have  laserkanonen  frem  lige  rumjagere  fra  livet.n 
fra  gemmerne.  Den  er  gan¬ 
ske  vist  rusten  og  gammel-  Leti Kvernhusvik 


85  RED  aaaaaaaaaaaaaaaaaaaaaaa 

86  REH  Hovedrutine 

87  REn  aaaaaaaaaaaaaaaaaaaaaaa 

38: 

løø  LET  y=3+lNT  (RND*26J :  FOR  x=l  TO  20 
•  IF  ATTR  Cx,y)=68  THEN  GO  TO  340 
1 10  PRINT  AT  x, y ; "d ” 

120  PRINT  AT  a , b  ;  " 

130  IF  IN  63486=190  AND  b>ø  THEN  LET.  b 
=b-l 

140  IF  IN  63486=190  AND  IN  65022=189  AN 
D  b> 1  THEN  LET  b=b-2 
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2  PRINT 


150  IF  IH  63486=189  ANO  b <29  THEN  LET 
o=b  +  I 

160  IF  IN  63486=189  ANO  IN  65022=189  AN 
D  b <28  THEN  LET  b=b*2 
170  IF  IN  61438=190  AND  o>ll  THEN  LET 
o=o-l 

180  IF  IN  57342=190  THEN  IF  los  THEN 
GO  TO  280 

190  IF  NOT  los  THEN  GO  TO  3000 
200  LET  o=o  +  ( 1  AND  o<21  ANO  IN  6143801 
903 

210  PRINT  INK  4  »AT  a,b;  obc" 

220  IF  ATTR  Cx,yJ=68  THEN  GO  TO  340 
230  PRINT  AT  x,y;"  " 

240  LET  y=y+CRND> . 5  AND  y<281 -CRND<.5  A 
ND  y>3):  LET  x=x-C2  AND  x>10  ANO  RND<.2) 
250  IF  x=20  THEN  LET  llv=llv-l:  PRINT 
PAPER  2;  INK  7;AT  0,20;liv:  IF  l I v=0  TH 
EN  GO  TO  4000 
260  NEXT  x 
270  GO  TO  løø 
273: 

274  REn  88888888888888888888888 

275  REM  PLOVDRAU  Los  er 

276  REM  Sjekk  lor  trell 

'277  REH  88888888888888888888888 

278: 

280  LET  l os  =  l os  —  1 

290  PLOT  Cb*8)H2,  ti  75-(o*8)  )»2  :  ORAL! 
INK  7 ;0>  78 :  8EEP  .003,50:  PLOT  Cb*8J*12, 
f 1 75- C 0*8 3 1 +2 :  ORAW  INK  0;0,78 
300  IF  ATTR  Cx,  y  3  0  70  THEN  FOR  s  =  l  TO 
21  STEP  3:  9EEP  .03,s*2.5:  PRINT  AT  x,y, 
INK  s/li  a"--  NEXT  s.  PRINT  AT  x,y, 
lET  sc=sctf 25-x3 :  uET  los=los»l:  PRINT 
PAPER  2;  INK  7, AT  0,3,sc;AT  0,12; los ;AT 
0, 1 3 , f "  ANO  los  <103  ■  OUT  57342,5-  GO  T 
O  løø 

310  PRINT  PAPER  2;  INK  7;AT  ø,3;scjAT 
ø,  12 ;  los  ;AT  0, 1 3;  f "  and  ios<lø3 
320  OUT  57342  5 

335  REH 

336  REH  Ko  1  I  i sjonsrut ine 


337  REH  88888888888888888888888 
338: 

340  FOR  s =2  TO  6 

350  PRINT  AT  o,b;  INK  s;  abc" 

360  BEEP  .2,-10:  BEEP  .005, s*5 
370  NEXT  s 

380  PRINT  AT  a,b;"  LET  llv=liv-l 

390  PRINT  PAPER  2;  INK  7;AT  0,2ø;iiv 
400  IF  l i v <=ø  THEN  GO  TO  4000 
410  OUT  57342,5:  GO  TO  løø 

994  : 

995  REH  88838883888888888888888 

996  REH  Gral :kk  ABC  D 

997  REH  88888888888888888888888 
998: 

999  STOP 

1000  FOR  a=USR  "o''  TO  USR  "o"+31 
1010  READ  b :  POKE  a,b 
1020  NEXT  o 
1030  RETURN 

1040  DATA  0,0,0,3,7,15,27,59 
1050  DATA  24,24,60,255,255,255,231,195 
1060  DATA  0,0,0,192,224,240,248,220 
1070  DATA  153,219,255,126,60,24,24,24 

1994  : 

1995  REH  88888888888888888888888 

1996  REH  Innstruks joner 

1997  REH  88888888888888888888888 

1 998  •' 

2000  BORDER  0:  PAPER  0:  CLS 

2010  PRINT  AT  1 , 3 ;  -  I . UENSTR 

E'';TAB  3; '2 . HØYRE"  !TAB  33;  "0 

. OPP" ;tab  3;"P . 

.SKYT";TAB  3  ;''S . EKSTRA  FART 


2020  PRINT  AT  7,3;  DIN  SCORE  AUHENGER  AU 
HUOR  HØYT  ROHSKIPET  ER  NAAR  DU 

TREFFER  UET. C T0PPSC0RE=24 )  OU  ST 

ARTER  HED  50  LASERE  OG  FAAR  1  NY 

FOR  HUER  treff.SPIlLEI  ER  HUER 

HUTS  5  ROHSKIP  KLARER  AA  KOHHE 

HELT  NEO  ELLER  KOLi.  IDERER  HED  D 

EG.HU.IS  DU  GAAR  TOH  FOR  LASERE  -  ) 


AR  DU  50  NTE  OG  'His':  ER  ET  t.iu. 

2030  PRINT  INK  7,A-  21.3,  F^ASH  i.  ’RY 

KK  J  FOR  AA  SI  ARTE  SPIuLEl 

2040  IF  INKEY$  =  "J "  OR  INKEY*  =  "J"  1  HEN  B 

ORDER  5:  CLS  :  RETURN 

2050  GO  TO  2040 

2994  : 

2995  REH  88883888888888888888888 

2996  REH  Nye  Lasere  ? 

2997  REH  88888888888888888888888 
2998: 

3000  IF  los=ø  AND  l 1 vY 0  THEN  LET  ,as  =  la 
st5ø:  LET  l lu* l lu- 1  s  PRINT  PAPER  2;  INK 
7 ;AT  0, 12; los ; AT  0, 20 1 l i  v 
3010  IF  llv=0  THEN  GO  TO  4000 
3020  GO  TO  210 
3994: 

3995  REH  88888888888888888888888 

3996  REH  Game  Over /Nyt t  Sp i l 1  ? 

3997  REH  88888888888888888888888 

3998.: 

8000  PRINT  AT  10,11;  FLASH  1 ; ’GAHE  OUER 
4010  PRINT  AT  15>5»"tRYKK  J  FOR  NTT’ 
lL“ 

4020  IF  se>hs  THEN  LET  hs -sc 

4030  FOR  S-1  TO  5 

4040  FOR  t=l  TO  S 

4050  BEEP  .05,-t»5:  BEEP  .03, -s 

4060  BEEP  . 03,-«*10 

4070  NEXT  t 

4080  NEXT  t 

8030  IF  INKETS="J"  OR  INKETS="j"  THEN  C 
LS  :  GO  TO  50 
8100  GO  TO  4090 

9992  REH  Hvis  programmet  ikke 

9993  REH  virker  som  det  skal 

9994  REH  proev  do  oa  bytte  ut 

9995  REH  IN  tallene  i  linje 

9996  REH  130-180. 

9997  REH  Bytt  190  med  254. 

9998  REH  Bytt  189  med  253. 

9999  SAUE  "Romdue l l"  LINE  10 


Labyrint  krig 


■  Du  skal  prøve  at  komme 
igennem  en  labyrint,  tør  din 
modstander  -  computeren  - 
samtidig  med  at  du  skal  pas¬ 
se  på  ikke  at  støde  ind  i  væg¬ 
gene.  Du  skal  også  passe  på, 
at  modstanderen  ikke  spiser 
dig.  Husk  at  du  ikke  kan  gå  til¬ 
bage! 

Nederst  på  skærmen  kan  du 
hele  tiden  se,  hvem  der  tører, 
og  til  slut  hvem  der  har  vun¬ 
det  .  Hvis  du  vil  bruge  joysticks 
eller  andet  at  styre  med,  kan 
du  ændre  i  linie  23  og  24.  Her 
atlæses  retningen. 

Spillet  er  kort  men  godt.  og 
kan  køres  med  de  2  K  RAM, 
som  ligger  i  en  standard 
Lambda.D 
Poul  Møller 


3  INPUT  I 
8  FOR  R  =  1  TO  20 

5  PRINT  RT  R  ,  0,  " 

■  ■■■■■■■ 

6  NEXT  fi  _ 

7  PRINT  "  ■■■ 


8  FOR  R=1  TO  29  STEP  2 

9  FOR  B=0  TO  I 

10  PRINT  RT  RNO019+1 ,R; " 

11  NEXT  B 

12  NEXT  R 

13  fl=INT  <RND*19) +2 
14.  6=30 

15  C  =  INT  fRNO»22.t 

16  D=0 

17  E=i 

1©  E*E#C-1  OP  R>1  RND  R<2^l^ 

19  PRINT  RT  R  ,  B , 

20  IF  NOT  PEEK 
THEN  B=*B-2 

21  flaflfE 

22  PRINT  RT  C  ,  D ;  "  *' 

23  CaC+(INKEY$a"R"  RND  C  t£l)  -  ( 
INKEY*8,,4**  RND  C>0) 

24  O  *D  ♦  (  INKEY  $  =  ’'F"  ) 

25  F=PEEK  <  ieBl*+C*33+r>) 

26  PRINT  RT  C ,D, "&T ; RT  21,11, 
fl  f  iTPa  RND  BtD  ,3Q,  -f— HWLMaM 

RND  6-fD  /30,  "■■■■rrnr  21,1 

27  GOTO  ( F  <  >  0  OR  R*C  RND  B  *D  O 
R  S=Q)  »14  +  (  D=3gn*iø  + 1 3 

29  D  =D - 1 

30  SOUND  Dj  999 

32  print  ‘ 

33  SOUND  30,9999 

34  RUN 

35  SRUE  "LPBYRINfl" 

36  RUN 
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Sound 

Generator 


■  De,  der  har  prøvet  QL  's 
komplicerede  BEEP-kom- 
mando  ved,  hv  r  svært  det  er 
at  opnå  nøjagt  i  den  bestem¬ 
te  lyd,  man  øn.  -;er  til  t.eks.  et 
spil. 

Godt  nok  fortæller  Sinclair  i 
manualen,  hvilke  af  de  maxi- 
mum  8  parametre,  der  har 
hvilke  indvirkninger  på  den 
endelige  lyd.  Men  dermed  er 
ikke  sagt,  at  man  uden  vide¬ 
re  kan  sætte  sig  ned  og  gan¬ 
ske  enkelt  udregne  paramet¬ 
rene  for  den  ønskede  lyd.  Det¬ 
te  er  nemlig  en  noget  kompli¬ 
ceret  affære,  da  mange  af 
parametrenes  værdier,  f  .eks. 
indbyrdes  påvirker  hinan- 


manualen,  at  BEEP-komman- 
doen  bør  anvendes  mere  ved 
•  eksperimentering  end  ved  at 
udregne  de  nøjagtige  værdi¬ 
er  for  de  8  tal. 

For  at  gøre  denne  eksperi¬ 
mentering  lettere,  har  vi  lavet 
programmet  "QL  Sound  Ge¬ 
nerator'  ' .  Det  giver  mulighed 
for  at  eksperimentere  sig  frem 
til  smarte  lyde,  lagre  dem  og 
foretage  diverse  andre  nytti¬ 
ge  ting.  Med  lidt  flittig  brug  af 
programmet  skulle  det  være 
muligt  at  lokke  mange  spæn¬ 
dende  lyde  ud  af  den  ind¬ 
byggede  højtaler. 

Indtast  programmet  og  start 
med  RUN.  På  skærmen  ud- 


gelse  af  lydens  længde.  Sam¬ 
tidig  spiller  QL  den  nuværen¬ 
de  lyd  i  højttaleren.  Du  kan 
bruge  cursor-venstre-  og  cur- 
sor-højre-tasterne  til  at  flytte  et 
markørfelt  rundt  mellem  de  7 
parametre.  Når  feltet  står  ved 
en  værdi,  du  vil  ændre,  bru¬ 
ger  du  cursor-op-  og  cursor- 
ned-tasterne  til  at  op-  og  ned¬ 
tælle  tallet.  Holdes  ALT  samti¬ 
dig  nede  vil  op-  og  ned-tæl- 
lingen  køre  hurtigere  Dette  er 
nyttigt,  hvis  store  værdier  skal 
ændres. 

Hver  gang,  du  har  opnået  en 
tilfredsstillende  lyd,  kan  du 
gemme  den  med  et  tryk  på 
F2.  Senere  kan  du  eventuelt 


al  alle  de  gemte  lyde,  mens 
F5  derimod  sletter  dem  alle 
sammen.  Endelig  nulstiller  F 1 
de  syv  værdier  for  den  nuvæ¬ 
rende  lyd. 

Bemærk,  at  BEEP-komman- 
doen  i  programmet  bruges 
med  en  længde  på  nul,  når 
lyden  afspilles.  Har  du  i  sinde 
at  bruge  de  lyde,  der  laves, 
med  en  anden  længde,  må 
du  være  forberedt  på,  at  det 
måske  kommer  til  at  lyde  lidt 
anderledes.  Det  skyldes,  at  QL 
faktisk  afspiller  en  lyd  med 
længden  O  en  smule  ander¬ 
ledes  end  samme  lyd  med  en 
hvilkensomhelst  anden 
længde.  Sådan  er  det  ba¬ 


den.  skrives  nu  alle  BEEP-komman-  hente  den  frem  igen  med  et  re . 

Sinclair  nævner  da  også  i  doens  parametre  med  undta-  tryk  på  F3.  F4  giver  en  udskrift 


100  REMarU  SOUND  GENERATOR 

110  REMarU 

120  REMark  (C)  1985  Esben  Krag  Hansen 

130  REMarU 

140  DIM  value(7):  DIM  sounds ( 100, 7) :  cursound=0:  pos=i:  oldpos=i:  DIM  limit  (7,2 
) 

150  RESTORE  2000 

160  FOR  i  *  1  TO  7:  READ  1  i m i t ( i , 1 ) , l i m i t ( i , 2 ) 

170  MODE  8 

500  REPeat  mainloop 

510  PAPER  0!  INK  7:  CLS:  CLS#0 

520  CSIZE  2,1  ^ 

530  PRINT  TO  10; "Sound  Generator" 

540  CSIZE  0,0 

550  AT  3,61  PRINT  "Pitch"jT0  14 ; “ P i tch_2" TO  22; * Grad_x " \ \ \T0  6; "Grad_y " ; TO  14|"W, 
rap" I  TO  22; "Fuzzy " \ \ \T0  6J "Random" 

560  AT  4,6:  PRINT  value(l)T0  1 4 { va 1 ue ( 2 ) TO  22 ; va 1 ue ( 3 ) \ \ \T0  6;value(4)T0  14jvaluy 
e ( 5 ) TO  22J value (6) \\ \T0  6;value(7> 

570  AT  13,5  / 

580  PRINT  " F 1  Res«t  lydv»rdier  til  0"\T0  5; "F2  Gem  nuværende  lyd"\T0  5i "F3  Hent 
en  gemt  lyd"\T0  5; "F4  Udskriv  alle  gemte  lyde"\T0  5; "F5  Slet  alle  gemte  lyde"  ^ 
1000  REPeat  loop  _  _  .  s  s  / 


Esben  Kiag  Hansen 


MlSHSEd- 
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i 
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1010  IF  posOoldpos  THEN 

1020  AT  44-  (oldpos-1  )  DIV  3*3,  6+ (ol  dpos- 1 )  MOD  3*3 

1030  PRINT  value (ol dpos) TO  6+ (oldpos-l )  MOD  3*8+3 

1040  AT  4+ (pos- 1 )  DIV  3*3, 6+ ( pos- 1 )  MOD  3*8 

1050  PAPER  2:  PRINT  value(pos)  TO  6+(pos-l)  MOD  3*3+8 

1060  PAPER  O 

1070  ELSE 

1080  BEEP 

1090  PAPER  2 

1100  AT  4 *  ( pos - 1 )  DIV  3*3, 6+  (pos-1 )  MOD  3*8 
1110  PRINT  value (pos) TO  6+(pos-l>  MOD  3*8+8 
1120  PAPER  0 
1130  END  IF 
1140  oldpos=pos 
1 150  REPeat  getkey 

1 1 60  BEEP  O, val ue ( 1 ) ,value(2) , value (3) , value (4) , value (5) ,value<6) , value (7) 

1170  key-KEYROW(O) :  key=C0DE ( I NKEY* ( - 1 ) ) 

1180  SELect  ON  key 

1190  ON  key= 1 92 

1200  pos*po5- 1 +7* ( pos  = 1 ) 

1210  NEXT  loop 

1220  ON  key =200 

1230  pos=pos+ l -7* ( pos=7) 

1240  NEXT  loop 

1250  ON  key=208 

1260  va 1 ue (pos) *va 1 ue ( pos ) ♦ 1 

1270  IF  val ue ( pos)  > 1 lmi t ( pos, 2)  THEN  va 1 ue (pos) = 1  i m i t ( pos , 1 ) 

1280  NEXT  loop 

1290  ON  key=216 

1300  value (pos) »value (pos) -1 

1310  IF  value (pos) < 1 imi t (pos, 1 )  THEN  va 1 ue ( pos ) = 1  i m i t ( pos , 2 ) 

1320  NEXT  loop 
1330  ON  key=209 

1340  va 1 ue ( pos ) =va 1 ue (pos ) ♦ 100 

1350  IF  val ue ( pos)  > 1  i  ni t (pos, 2 )  THEN  value (pos)  =  1 imi t (pos, 1 ) 

1360  NEXT  loop 
1370  0N  key=21 7 

1380  value (pos) »value (pos) -100 

1390  IF  value (pos) < 1 imi t (pos, 1 )  THEN  value(pos) >1 imi t (pos, 2) 

1400  NEXT  loop 
1410  0N  key=232 
1420  BEEP 

1430  DIM  va 1 ue ( 7 ) :  NEXT  mainloop 
1440  0N  key*236 
1450  BEEP 

1460  IF  cur sound= 1 00  THEN  AT  12,0:  CLS  2:  AT  16,8  :  PRINT  "100  lyde  er  lagret... 

key=KEYR0W(0> I  PAUSE:  NEXT  mainloop 
1470  cursound=cursound+ 1 

1480  FOR  i=l  TO  7:  sounds ( cur sound , i ) = va 1 ue ( i ) 

1490  AT  12, 0:  CLS  2:  AT  16,8 

1500  PRINT  "Lyden  har  nummer  "{cursound 

1510  number=KEYR0W(0) :  PAUSE:  NEXT  mainloop 

1520  ON  key=240 

1530  BEEP 

1540  IF  cursound-0  THEN  AT  12,0:  CLS  2:  AT  16,8:  PRINT  "Ingen  lyde  er  gemt":  num 
ber=KEYR0W(0) :  PAUSE:  NEXT  mainloop 
1550  REPeat  numbinput 
1560  AT  12, O!  CLS  2 

1570  AT  16,5:  INPUT  "Indtast  nr.  pa  lyd! "Inumber 

1580  IF  number>0  AND  number < *cur sound  THEN  EXIT  numbinput 

1590  END  REPeat  numbinput 

1600  FOR  i=l  TO  7:  va 1 ue ( i > »sound s ( number , i ) 

1610  NEXT  mainloop 
1620  ON  key=244 
1630  BEEP 

1640  AT  12,0:  CLS  2 

1650  IF  cursound*0  THEN  AT  16,8:  PRINT  "Ingen  lyde  er  gemt":  number »KEYROW ( 0 ) :  P 
AUSE:  NEXT  mainloop 

1660  AT  16,0:  INPUT  "Skal  lyden  afspilles  samtidig  med" ! "udskriften  af  værdier  ( 
J/N)  ?  "svar* 

1670  CLS:  PRINT  "Tryk  på  en  tast,  hver  gang  en  ny  lyd  ønskes. "\\ 

1680  FOR  i»l  TO  cursound 

1690  PRINT  "Nr.  " J  i J  "  :  "  J 

1700  FOR  n=l  TO  7:  PRINT  sounds ( i , n M :  IF  n<7  THEN  PRINT 

1710  IF  svar*=="j"  THEN  BEEP  0, sounds ( i , 1 ) , sounds ( i , 2) I sounds ( i , 3) i sounds ( i , 4) I  s 
ounds ( i , 5 ) »  sounds ( i , 6 ) 5 sounds ( i , 7) 

1720  pause:  PRINT  \\ 

1730  END  FOR  i 

1740  NEXT  mainloop 

1750  ON  key=248 

1760  BEEP:  AT  12,0:  CLS  2 

1770  AT  16,3:  INPUT  "Klar  til  at  slette  alle  lyde"\\T0  4J"-  er  du  sikker  (J/N)  ? 
" 5  svar* 

1780  IF  svar*=="n"  THEN  NEXT  mainloop 
1790  cursound=0:  DIM  sounds ( 100 , 7 ) 

1800  AT  12,0:  CLS  2 

1810  AT  16,8:  PRINT  "Alle  lyde  er  slettet" 

1820  number “KEYROW ( 0 ) :  PAUSE:  NEXT  mainloop 

1830  END  SELect 

1840  END  REPeat  getkey 

1850  END  REPeat  loop 

1860  END  REPeat  mainloop 

2000  DATA  0,255,0,255,-32768,15,-8,7,0,15,0,15,0,15 
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■  I  dette  Lambna  program 
skal  du  starte  sammen  med 
22  andre  vogr  I  tørste  om¬ 
gang  skal  du  overhale  de 
øvrige  deltagere  (det  sker  i 
startteltet),  og  deretter  styre 
gennem  svingene.  Men  pas 
på,  tor  tilskuerne  smider  sten 
på  banen !  Du  skal  også  passe 
på  at  du  ikke  løber  tør  tor  ben¬ 
zin. 

Allæsning  at  tastaturet  sker  i 
linie  1 1  og  24,  og  dem  kan  du 
jo  ændre  hvis  du  vil  bruge 
joystick  eller  andre  taster. 
Programmet  kører  nemt  i  en 
»lille«  Lambda.  Det  vil  sige 
med  kun  2  K  RAM.D 

Poul  Møller 


7  NEX 

8  Y=16788 

9  PQKE  Y,0 

10  PDKE  Y,8 

11  IF  INK.EYt«  >"R"  THEN  GOTO  9 
IS  P=0 

13  X  =  13 

15  B  =  INT  (RND*3>  4-1 

16  6=B+(B  =  1  PIND  X<6)*2-(B=3  BN 
D  X  >21)  *2 

17  FOR  N=1  TO  6 

18  POKE  Y,8 

19  SCROLL 

20  X=X+B-2 _ 

21  Pli  llll  — ^ — 


_ •;  RT  21,  x;  "k  T';  i 

21 ,  X,  “■  '•  AND  B=2;RT  21,X;"B 

V  A'  BND  B=1 

22  IF  RND  < P /20  THEN  RONE  1720S 
+X+RND, 27 

23  POKE  Y-33,0 

24-  Y=Y+  <INKEY*="F")  -  (INKEY*»"7 

’  SS  XF  PEEK  Y<>0  THE N  GOTO  29 

26  PsP+0.011 

27  NEXT  N 

28  GOTO  (RND <P/999) *23+15 

29  FOR  N « 1  TO  30 

30  POKE  Y , 8 

31  SOUND  15,99 

32  POKE  Y,23 

33  NEXT  N 
34.  SCROLL 

36  PRINT  “DU  KØRTE  "jPj"  KM" 

36  PAUSE  4.E4 

37  RUN  4. 

38  SCROLL 

39  PRINT  “DU  ER  LØBET  TØR  FOR 
BENZIN" 

4.0  POKE  Y,6 
4-1  GOTO  34. 

4-2  SRUE  "RRCERLØS" 

4-3  RUN 


Amcircle 


■  Som  regel  skal  der  ikke 
meget  til  for  at  lave  de  flotte¬ 
ste  mønstre  på  en  grafisk 
skærm.  Prøv  blot  dette  lille 
program,  der  tegner  op  til  30 
forskellige  cirkelmønstre  i  vil¬ 
kårlige  larver. 

Prøv  også  at  bruge  nogen  an¬ 
dre  funktioner  end  lige  COS 
og  SIN.  Denne  idé  med  at 
bruge  matematiske  funktio¬ 
ner  til  mønstertegninger  kan 
med  tordel  bruges  til  at  pep¬ 
pe  ens  egne  programmer  lidt 
op!  □ 

Kaj  Laursen 


1.  REM  CIRKEL  MØNSTRE  » 

S  REM  Copyright  Kaj  Laursen  \ 

lø  s=INT<RND*3ø+l>  V  v 

2ø  CLS- BORDER  ø :  INK  ø,ø  V 

3ø  x=INT  <RND*26)= INK  1 ..  x 
4ø  a  =  I  NT  <RND*26>*  INK  2,.y 
5ø  z=  I  NT  <  RND426  >  =  I NK  2,z  . 

6ø  FOR  1-1=0  TO  36ø  STEP  s  1 

7ø  MØVE  32ø  , 2øø  " 

8ø  DRflW  32ø+ 1 9ø*C0SC  n  > ..  200+ 1 9ø*S  I  NC  n  >  ,  1 
9  ø  D  R  fl  W  3  2  ø  + 1 9  ø  $  C  O  S  C  n +2.5  4  •=.  > 2  ø  ø  + 1 9  0  4  S I N  C 
i  øø  DRflW  320,200..  3 
llø  IF  INKEY$< >" "  THEN  lø 
12ø  NEXT 

13ø  IF  INKEYøO""  THEN  lø  / 

14ø  GOTO  13ø  '  / 
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INDEX  print 


Index 


■  Indexprint  til  Commodore 
64  giver  dig  mulighed  tor  at 
tå  orden  i  dine  bånd .  Selve  fi¬ 
lerne  med  tæller  og  titel  kan 
også  lægges  på  disk.  Blot 
skal  linie  1  rettes  til  8  i  stedet 
for  1 .  Du  kan  både  lave  num¬ 
merstyret  og  aliabetisk  ud¬ 
skrift.  Ellers  er  programmet 
selvforklarende  gennem  sin 
hovedmenu.  □ 

Martin  Petersen 


le _ I  m  ® 


•  M  \\\  ® 


1  TD=  1  :  G0T02  :  1  =  TAPE  ,  3  =  DISK 

2  REM* USKREVET  AF  MARTIN  PETERSEN  1 935 ******************************** * 
5  D  I  MTA<  1  OO  )  : D  I  MNA*<  1  OO  ) 

10  P0KE53231 ,254:P0KE53230,£46:PRINT"kjr' 

20  PRINT"SMBI1  .  NUMMERERET  UDSKRIFT"  ||  Programmer: 

_ _ -  _ _ ... _  _  .  _  . _  ■ - II  nHnrUn 


Programmer: 

30  PR  I  NT  “382  .  ALFABETISK  UDSKRIFT"  ÉSfl  Samtlige  aftrykte  listninger 

1^^  er  afprøvede  før  offentlig- 

40  PR  1 1  IT  ,5J3 .  HENTE  DATA  FRA  BAAND/DISK"  II  gørelse.  Forlaget  betaler 

50  PR  INT"SJ4  .  INDTASTNING  AF  DATA"  skattefrit  op  tU  1000  kroner 

55  PR  I  NT 11  MS.  SLUT"  JJ 

JFÆ  grammer  Forlagef  nar  ret  fil 

SO  PR  I  NT "  SKEEJv’AELG  TAL  FOR  ONSKET  FUNKTION!"  ||  at  aftrykke  godkendte  pro- 

70  GETA  :  IFA<  10RA  >5THEN70  1=1  grammer  i  bladet  og  offent- 

1^11  liggøre  dem  pd  andre 

30  IFA=  1 THENG0SUB200  ||  lagermedia 

90  I F  A=£THENG0SUB300  "  — 

100  IFA=3THENG0SUB400 
110  IFA=4THENG0SUB500 

120  I FA  =  5THENP0KE53£30 ,254 : P0KE5323 1  ,£4S : PR  I NT "  kJM" : CLR : STOP : END 
130  GOTO  10 

190  REM*  *  *  **NUMME RERET  UDSKRIFT********* 

200  0PEN4 ,4 : PR INT#4 ,CHP$<  14 ) "BAND " ; BA;  "  S  I DE " ; S  I ; CHR$(  15):PRINT#4 
£  10  FORB  =  1T0AN; PR INT#4  ,B;  CHR$(  16  )  "04  |  "  ;  CHR$<  16  )  "06 "  !  TA<  B  )  ;  CHR^'l  16 )  "  12  |  "  ; 
230  PR  INT#4  ,  CHR$<  1 6  )  "  1 4  "  ;  NA$<  B  )  :  NEXT :  CL0SE4  :  RETURN 
290  REM*  *  *  *  »ALFABET I SK  UDSKRIFT********* 

300  0PEN4 ,4  :  PR  INT#4  ,CHR$K  14)"  BAND  "  '  BA  *  "  S  I  DE  "  ;  S  I  ;  CHR3K  15  )  :  PR  INT#4  :  G=0 
310  FORB  =65T090  s  FORC  = 1  TO AN:  IFASCC  NA*<  C) )<  >BTHEN340 

320  G=G+ 1  i  PR INT#4 ,G;CHR*<  16  )  "04  |  "  ;  CHR*<  16 ) "06 " f TA< C > ; CHR$<  16)  "12!"; 

330  PR  I  NT«  4  ,CHR$<  16  )  "  14  "  ;  NA*<  C  ) 

340  NEXT  s  NEXT : CL0SE4 : RETURN 
390  REM*  *  *  *  *DATA  FRA  BAAND/DISK********* 

400  INPUT"BAANDNUMMER  ,S  IDE  "  ;  BA  ,S  I  :  E*=STR4K  BA  )  +STR$>:  S  I  ) 

410  0PEN1 ,TD,0,E$:AN=0 

420  AN=AN+  1  :  INPUT#  1  ,TA<  AN)  :  INPUT#  1  ,NA*<  AN)  :  IFNA$<  ANX  >  "SLUT "  THEN420 
430  AN=AN- 1 : CLOSE 1 : RETURN 

490  REM*****  INDTASTNING  AF  DATA*********. 

500  PRINT" : PR  I NT "  SKrøD  ,SLUT=ST0P" : AN=0 

510  AN=AN+  1  :  I  NPUT"BAANDTE ALLER  ,  T  I  TEL  "  ;  TA<  AN)  ,NA4><  AN  )  :  IFTAC  ANX  >0THEN5  1 G 
520  I NPUT "B AAND  NR .  ,  S  I DE “ ; BA ,S I : E*=STR$< BA ) +STR$< 3  I ) 

530  OPEN 1 , TD , 1 ,E$ : F0RB= 1T0AN: PR  I NT# 1 ,TA<  B ) : PRINT# 1 ,NA*<  B ) : NEXT 
540  AN=AN-1 : CLOSE 1 : RETURN 
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Hole  in  one 


L Afewlhcusi— 


!® 

i® 


SPILLER  -  "iLEFT*(STR«( 


mby  ( 199) , tby  (P I /2) , 
»by ( 199) , tby (PI /2> 


placa( 112,20) ,STR*(v«) 
placa( 124, 10» 


tby(5«PI/6) ,dby(3,i) , 


tby (PI /6)  f dby (3, 1 )  , 


20  RANDO« I ZE 
30  OPENbO.O 
50  '»TAB(I7>  j-BOLF" 

80  '»TABCI7>|"- 

110  '?i’,“V«lko»m*n  til  d«tMit-gol<.  * 

120  LINPUT  rv*j  1  ad  ni  ng7")a* 

130  a*-LEFT*(a*,  1  > 

140  IF  a*<>"y"  AND  ifOT  AND  a*<>"j"  AND  a*<  >"J"  AND 

a*<>“"  THEN  GOTO 196  / 

130  7i?MSpill«t  kan  spilles  af  1  til  4  personer"  /  .1 

132  ^“og  kan  forlpba  over  1  til  8  omgange.  I"  /  jJU 

154  9“hver  omgang  torspger  en  spiller  at  sl»“  /  dBjyy 

136  ^"bolden  i  bul  1  sr>  f/>  slag  som  muligt.  Et"  /  /  / 

158  7"*lag  angives  ved  retningen  mod  hullet  ( "  11/ 

160  ?"i  grader),  slagstyrken  samt  vinklen  med1'  i  f  /  k 

162  ‘'"jorden  (i  grader).  Slagstyrken  skal  have”  ‘  /  / 

164  7"an  vrrdi,  som  Ikke  overstiger  23  plus’*  /  /  r/V/ 

166  "»"vinklen  med  jorden.  (Den  maksimale  slag-"  /  Ack 1  /// / 

168  7"styr ke  <or  en  jordtriller  bliver  soledes"  / 

170  "»"25.  )  "17  /  JTOKjo/Oy' 

176  "»"Slag  mod  hul  vanskeliggøre«  af  vinden"  /  JmBjyy  / 

178  7"  (vindstyrker  fra  1  til  12)  og  to  trrar,"  /  / 

180  '•"som  det  er  umuligt  at  skyde  over.  Efter”  I  /  / 

182  7"et  slag  er  angivet,  vil  bolden  begynde"  \  /y 

184  *»"at  bevrge  sig  over  skrrmen.  Nedslagspo-"  \  J 

186  »"sitionen  markeres  med  en  lille  streg,"  \.  / 

188  "»"hvorefter  bolden  vil  trille  yderligere"  x. 

190  "»"et  stykke.  God  f ornp jel  se 1  “ 1 7  \ 

196  CLEARt  te*.  13 

198  ON  ERROR  GOTO  8000  ^ 

199  ? 

200  INPUT ("Antal  spillere  i  ” ) as 

202  as-INT(as) 

203  IF  as< 1  OR  as)4  THEN  7,?"a*#  Antal  mellem  1  og  4 • "iGOT02OO 
210  INPUT ("Antal  omgange  i  " ) ao 

213  ao* I NT (ao) 

220  IF  ao( 1  OR  ao>8  THEN  7i?"*a*  Antal  mellem  1  og  8<"i80T0210 
230  DI«  ar (as, ao) 

240  FOR  p-1  TO  ao 
230  FOR  q-1  TO  as 
400  OPENbO ,0, "200“ 

410  CLOSEb 1  i OPENb 1,11, "200” 

420  IF  asOl  OR  aoOl  THEN  7,?-  -  j  LEFT*  (STR*  (q)  ,2)  |  “ .  SPILLER  -  "|LEFT*(ST 

p) ,2) | ".  OMGANG" 

425  ar (q,p> -O 

430  plot  range (320,200) 

440  plot  mby (319) ,tby (PI/2) ,  mby < 199) ,tby (PI /2) , 

mby (319) ,tby(Pl/2) ,  mby(199) ,tby (PI/2) 

600  vs* 1 ♦ I NT ( 1 2»RND ) 

700  vr-2*PI*RND-PI 

800  al-va*C08(vr ) i a2-vs«SIN (vr > 

900  plot  place<  8,20) , "Vindstyrke  i",  pi ace ( 1 12, 20) ,STR* ( vs) 

lOOO  plot  place(  8, 10) , "Vindretning  i”,  pi ace ( 124 , 10) 

UOO  IF  vr <0  GOTO  1400 

1200  plot  trn(vr)  ,mby(10),  tby (5»P1 /6) ,dby ( 3, 1 ) , 

tby (PI /3)  , dby (3,1) 

1300  GOTO  1300 

1400  plot  trn  CPIavr ) ,dby ( 10, 1 > ,  tby (PI/6)  ,dby(3,l>, 

tby (-PI /3) , dby (3,1) 

1300  a-PI *RND 

1600  X-160«140»C0S(a> 

1630  Y-170-14O-SIN(a> 

1632  v9» I NT (PI »RND ) 

1633  M  -18*102-RND 

1634  xB*160+m»C0S(v9) 

1636  yB-  1 70— *«e8 1 N  ( v9 ) 

1637  IF  SGN (x -160) »SON (»8- 160) <0  THEN  x8-320-x8 

1638  v9— INT (Pl-RND) 

1639  m  -23*92*RND 

1640  x9-160»*#-C08(v9> 

1642  y9-170-*«*8IN(v9> 

1643  IF  SGN(x-160)  »SON  ( *9-160X0  THEN  x9-320~x9 

1644  IF  (x9-x8)  ""2*  (y9-y8)  ~2<623  THEN  GOTO  1638 

1643  plot  pi ace (x8,yB-10> ,trn(0) ,  erc (20-PI ,2*PI > , 

place(x8,y8> ,fill 

1646  plot  placa(x9,y9-15) ,trn<0) ,  arc (30-PI ,2*PI > , 

pi aca (x9,y9) , f i  1 1 

1650  plot  pi ace ( 160, 162) , trn (0) ,  arc ( 16-PI ,2*PI ) ,dot ( 160, 170, 

dot  <m , y ,  1  > 

1670  IF  a>PI/2  THEN  plot  pi aca (x-12,y > , “9" ,pl aca (x , 

GOTO  1700 

1690  plot  placa(x«-4,y>  ,"8“,place(x,y> 

1700  PUT40.31 

1720  INPUT ( "Retning  mod  hul  i  “ > a 
1730  INPUT ("Slagstyrke  i  ">v 

1800  IF  v<0  OR  v>l 13  THEN  ?,7"a»*  Slagstyrken  mellem  0  og  1 13 • " i GOTOl 730 
1900  INPUT ("vinkel  med  Jord  i  ")b 

1920  IF  b<0  OR  b >90  THEN  7l7"aae  Vinklen  mellem  O  og  90  qrader"’i  GOTO  1900 
1930  IF  v  >23»b  THEN  ?,?"•#*  Slagstyrken  mn  hpjst  vrre  23“  1 7"  stprre  end  vi 
en  med  Jordan  •  “»GOTOl  730 
1930  ar  (q,p> -ar  (q,p)  ♦! 

1973  a-a«PI/180ib-b«PI/180 
2000  IF  bOO  GOTO  3100 
2030  x-pan (O) , y-pan ( 1 ) 

2100  vx-v«C0S(b> »COS (a) 

2200  vy-v»COS(b)-8IN(a> 

2230  t-v*8IN(b)/3 
2300  FOR  i-1  TO  t/te 

2310  IF  (x8-pen(0)  >"v2*(y8-pen(l>  )^2<»100  THEN  x  7-xBi  y7-y8i  GOT02340 

2320  IF  (x9-pan(0))'s2-My9-pan(I>)"'2<-223  THEN  x  7-x9i  y7-y9i  G0T02340 

2330  00T02400 

2340  IF  pen  (2)  -PI  /2  OR  pan(2)--PI/2  THEN  v9«pen  (2)  ♦PI  i  GOT02360 

2330  v9-2*ATN ( (pen ( 1 ) — y7> /  (pen(0)-x7>) 

-pen (2) -PI 

2360  v-SQR  ( vx"'2^vy"'2> 

2380  vx-v«C0S(v9) , vy-v«SIN(v9) 

2400  vx-vx^al »tai vy-vy^a2«ta 

2430  plot  mve (pen (0) ♦vxate,  pen ( 1 ) ♦vy*te) 

2500  NEXT  I 

2900  v-SQR (vx~2*vy~2) 

2940  IF  vx-0  AND  vy>-0  THEN  PI/2iBOTO  3070 

2970  IF  vx-0  AND  vy<0  TMEN  a—  PI /2i  GOTO  3070 

3000  A— ATN ( VY/VX ) 

3030  IF  VX<0  THEN  A-A«-PI 

3070  plot  tby(PI/2) ,dby(3.2,l) ,  tby(PI)  ,dby(3.2,l>, 

tby (PI/2) 

3100  plot  trn(a) 

3300  plot  mby(v-te) 

3310  IF  (x8-pen(0)  )"'2»-(y8-pen(l)  )"2<-100  THEN  x  7=x8i  y7-y8i  GGT03340 

3320  IF  (x9-pen(0)  )'*2»-(y9-pen(l)  >'-2<-225  THEN  x  7«x9i  y7-y9i  GOT03340 

3330  G0TO34O0 

3340  IF  pen  <  2) -PI /2  OR  pen(2)--PI/2  THEN  plot  tby (PI ) t GOT03400 

3330  plot  tby (2-ATN ( (pen ( 1 ) — y7) /  (pen(0>-x7)> 

-2«pen(2)-PI) 

3400  IF  (pen  (0)  - 160)  n2*  (pen  ( 1  >  - 1 70)  ~2<  -3  GOTO  3800 

3500  v-v-13*te 

3600  IF  v >0  THEN  GOTO  3300 

3630  IF  ar (q,p> »9  THEN  ar (q ,p )- lOi GOTO  3800 

3700  GOTO  1700 
3800  PUTbO,31 

3830  "»"HUL  I"|LEFT*(STR*(ar (q,p> > ,LEN(STfi*(ar (q,p) > >-l> FORSoG. “ 


/tssssszsztizz 

45?.v«=s;y.%- 


% 
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I  udlistningen  bruges  danske 
specialkarakterer.  De  svarer 
til  følgende  taster: 


THEN  x9-320-x9 
THEN  GOTO  1638 
arc (20»PI ,  2*PI > , 

arc(30-PI,2*PI>, 

arc ( 16»PI , 2*PI ) .dot (160, 170,1) , 

plot  pi ace (x-12,y ) , “S”, pi ace (x ,y) t 


stprre  end  vinkl 
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a-  P I /2i GOTO  3070 
a—  PI /2i  GOTO  3070 


THEN  x  7— x8i y7-yBi G0T03340 
THEN  x  7— x9,  y7-y9t  GOT03340 


THEN  plot  tby (PI), GOT034OC 
(pen (O) — x  7) ) 


r*  C 1  >  —  1  70)  "2<  -3  GOTO  3800 


3860  7-" 

3865  IF  ao=l  AND  as- I  GOT075O0 
3873  '*1  INPUT  ("Tryk  NEWL INE" ) a* 

3900  NEXT  q 
4000  NEXT  p 
4030  0PEN40,0 
4073  7,7 
4100  a*-“" 

4200  FOR  l -l  TO  as 
4300  a*-a*lf"  " 

4400  NEXT  i 
4300  a*=a»*i" " 

4900  7  t  AB ( 7 1 1 " " | 

3000  FOR  i-1  TO  as 
5100  7-  SP"|iilA|""| 

3200  NEXT  i 
5300  7« 7a* 

3500  FOR  1-1  TO  ao 
3600  7»0HG"J »«1A| "”| 

3700  FOR  j-1  TO  as 
3800  7*r < Jf i )*4A| 

3900  NEXT  j 
6000  7,7a* 

6100  NEXT  1 

6200  7" IALT  "| “"l 

6300  FOR  i-1  TO  as 

6400  s -O 

6300  FOR  J-1  TO  ao 

6600  s-s*ar(i,J> 

6700  NEXT  J 

6800  7m#4A,"-| 

6900  NEXT  i 
7000  7 

7100  FOR  i-1  TO  7- !as*l > -1 
7200  7--, 

7300  NEXT  i 
7330  7" “ 

7400  7 

7300  7i LINPUT ( " I gen 7" ) a* 

7600  a*-LEFT*(a«, 1) 

7700  IF  a*-"y"  OR  a*-"Y"  OR  a*-"j"  OR 

a*-"’"  THEN  PUT  60 , 3 1 1  GOT  0 1 96 
7800  7,?,7»Tak  for  denne  gang." 

7900  END 

8000  »i?"«»»  Inddata  skal  angives  som  et  tal ! 
9000  RESUME 


■  Spillet  gdr  ud  pd.  at  man 
skal  indtaste  tre  ting  for  at  sky¬ 
de  til  bolden.  Først  bliver  du 
spurgt  om.  hvilken  retning  du 
vil  skyde  bolden.  Dernæst 
skal  du  opgive,  hvilken  slag¬ 
kraft  du  vil  ramme  bolden 
med.  Til  sidst  skal  du  skrive, 
hvor  mange  grader  fra  jorden 
du  vil  skyde  til  bolden. 

For  at  gøre  det  hele  sværere, 
er  der  to  træer  man  ikke  må 
ramme,  og  vinden  blæser 
konstant  bolden  lidt  væk  fra 
det  sted,  hvor  man  vil  have 
den. 

En  betingelse  er  dog,  at  man 
holder  "bolden  ihdenfor  ba¬ 
nen.  Gør  man  ikke  det,  ser 
man  næppe  sin  bold  igen. 
Man  kan  være  op  til  fire  spille¬ 
re  og  spille  flere  omgange .  Til- 
sidst  bliver  der  tegnet  en 
pointtavle.  Retningen  man 
skal  skyde  bolden  i  er  i  grader 
og  ser  sådan  ud: 


□ 

Steen  Palm 
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Hold  styr  på  time 


■  Har  du  altid  haft  mistanke  maskinen  nemlig  holde  styr 
om.  at  din  lokale  købmand  på  bankkontoen.  Du  kan  og- 


svindler  lidt  med  de  penge,  så  indtaste  antallet  at  ar¬ 
du  tår  tor  dit  budjob.  Har  du  bejdstimer,  tå  det  beløb  du 


lønn 


nogensinde  sat  dig  ned  og  har  tjent  og  eventuelt  lagt 
regnet  timelønnen  ud,  som  oveni  totalen. 


du  tår  tor  at  flytte  tedtede  I  linie  1070  skrives  timeløn- 
papkasser  og  tor  at  kæmpe  nen.  1  programmet  står  20. 


din  "longjohn"  gennem  regn  men  det  skal  ændres,  alt  efter 


og  blæst?  hvilket  beløb 

Du  kunne  i.eks.  lade  din  programmet 
Commodore  64  gøre  arbej-  de.D 
det.  Med  dette  program  kan 


hvilket  beløb  du  tår.  I  øvrigt  er 
programmet  selvtorklaren- 


Bjøm  Bay 


i3 


1  REM  S******************************** 

2  REM  *  (C)  EJ ORM  BfiV  1934  * 

3  REM  S****!*********#*****#***#******#* 

7  REM 

8  REM  OVERSIGT 

9  REM 

10  X=53280 

20  P0KEX+ 1 , 9 :  POKEX ,  9 
30  PRINTCHRf C 147) 

4ø  PR  I  NT  "13  .■ - -  ■ 

Sø  PRINT"  I  RFRNSKHBSPPGGRRM  CD  BJØRN  RAV 

60  PRINT"  - - 

7ø  PRTNTTRBC  10) " MUKISSK 1  ■  TOTAL" 

80  PR I NTTHB ( 1 0) " «3F39  INTREGT  /  UDGIFT" 

85  PRINTTABC  10>‘‘«SF5S  UDPEGNING  FIF  TIMELØN" 

90  PRINTTABC  10  )“SSF7fi  LORD  DATA" 
løø  PRINTTRBClø)"MSF89  SAVE  DRTR" 
llø  GETflf 


130  IFR$="B"THEN200 : REM  F1 

140  IFA$="B"THEN4øø ' REM  F3 

160  IFRf="  11“ THEN  løøø :  REM  F5 

1 70  I FR *=  "  II"  THEN600  :  REM  F7 

175  IFR$="  ■"THEN800  •'  REM  F8 

177  G0T0110 
180  REM 

135  REM  TOTRL 
190  REM 

2øø  PR I NTCHRS  <147) 

210  PRINT"  SfTøTAL" 

220  PRINT"  fUeiHiTiTittil  I  HRP  NU  3"E“9<R.  PRO  DIN  KONTO" 
230  PRINTTABC  19)  "  MSSKKWWJTRVK  SEN  TRST" 

24ø  GETB* 

250  IFB$=" "THEN240 
260  GOTO 10 
270  REM 

280  REM  INDTAEGT.'UDGIFT 
290  REM 

400  PR I NTCHRS  C 1 47) 

410  PRINT"  3INDTREGT  /  UDGIFT" 

420  PR  I NTTAB  C 1 2 1' "  SrørøBSF 1 9  INTREGT" 

430  PR  I NTT  AB  C 1 2  >  " S3F3S  UDGIFT" 

440  GETCf 


STØTRL" 


450  IFCJ="  "THEN440  - - - — ./WlTl 

460  I  FC$= "  ■"  THEN430  ft 

470  I  FC$= "  S"  THEN540  J  tf  & 

430  C=0 :  I  NPUT  "  WrølKWiTill  NDTRST  INTREGT  "IC  yf  & 

490  B=B+C  In  kJ 

5øø  F0RX=lT05øø  NEXT  G0T0200 

54ø  B=0:  I  NPUT  "SWWSWSTS1I  NDTRST  UDGIFT"  ;D 

550  B=B-D 

560  F0RX=1T0500 ' NEXT ' G0T0200 
530  REM 

535  REM  LORD  DRTR 

590  REM  COMMO 

600  0PEN1 ,1.0,  "DRTR  FIL"  DORC  H 

610  I  NPUT #  1 ,  B  64 

620  GLOSE 1 : GOTO lø  ©I 

700  REM 

730  REM  SRVE  DRTR  _  - 

800  OFEN  1 ,1,1,  "DRTR  FIL "  | 

82ø  GLOSE  1  GOTO  10 
980  REM 

985  REM  TIMELØN 
990  REM 

løøø  PRINTCHRTT 147) 

1010  PRINT"«  3JDREGNING  RF  TI MELON" 

1020  PR  I  NT "  (WSKII  NDTRST  NU  DET  RNTRL  TIMER  OG  MINUTER" 
1030  PRINT" ffidDU  HRR  VÆRET  PRR  ARBEJDE." 

1  £140  T=0 :  M=0  :  F  =0  :  0=0 ;  E=0  :  I  NPUT  "  JSKEAN 1 RL  TI  MER  "  i  T 
1050  INPUT" WSHNTRL  MINUTER" , M 
1060  E=T*6ø:E=E+M 

1070  F =20/60 ' REM  '20'  ER  TIMELØN 

1080  G=F*E 

1090  PRINT  "JTOrøDU  HRR  TJENT  a"0“BKR.  " 

lllø  PRINT"  SWKT3KRL  DE  "G  "KR.  PLIGSES  TOTALEN  C  J/N)  ?" 

1120  GETGJ 

1 1 30  I FG*= " J " THEN 1 200 
1140  I FQ$= " N " THEN 1300 
1150  GOTO 11 20 

1200  B=B+G  F0RX=1 T0500 : NEXT : G0T0200 
1 3øø  F0RH= 1 T0500  GØT  0 1 0 


/  Kære  teser.  Jl  !ij 

Vi  håber,  at  du  er  tilfreds  med  programmerne  i  \\\* 
i>  SPECIAL.  C 

Skulle  du  ligge  inde  med  tilsvarende  gode  -  og  måske  endnu  sjovere  og 
bedre  -  programmer,  du  selv  har  lavet,  hører  vi  gerne  fra  dig.  SOFT  er 
nemlig  tesernes  blad,  og  vi  betaler  op  til  1 000  kroner  for  et  rigtig  span- 
■ — ,  dende  program.  Og  måske  får  netop  dit  program  en  fremtradende  plads 
i  det  næste  SOFT  SPECIAL  eller  i  "Alt  om  Data". 

Indsend  dit  program  på  kassettebånd  eller  disc  og  gerne  vedlagt  en  ud¬ 
printning.  Samtlige  programmer  testes  og  vurderes,  inden  de  offentliggø¬ 
res.  Alt  materiale  returneres  efter  brug,  og  bladet  har  fuld  ret  til  at  publi¬ 
cere  programmet  på  tryk  og  eventuelt  andet  lagermedium. 

Programmer  sendes  til  "Alt  om  Data",  St.  Kongensgade  72, 1264  Køben¬ 
havn  K. 
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JAMEN...  ER 
DET  IKKE 
STRIP -  PaiAER 
????? 


1 0  BORDER  6:  PRPER  4:  INK  0:  CLS 
20  BEEP  .5,20:  BEEP  .2,20 
30  PRINT  RT  0, 5  j  INK  1  ; 


40  PRINT  RT  1,10;  PRPER  4;  INK  ØJ'SPIL 
lEREGLER" 

50  PRINT  RT  3, 0  ;"Poenget  i  dette  s p  i  l  L 
et  er  aa  faa  ko 'l summen  saa  naer  21  so 
m  mulig, men  ikke  over. Du  starter  spill 
et  med  1000$  09  et  kort. Du  biir  saa  spur 
t  om  hvor  mye  du  vil  satse. 

60  PRINT  RT  10,0;  La  oss  si  at  du  faar 
en  Konge,  09  At  du  satser  100$  paa  den 
.Du  faar  saa  en  5’er  09  har  total-  summ 
en  18.Naar  Spectrum  spoer  ’Uil  du  ha  e 
t  kort  til  *?*  trykk  ’j’  for  ja,  Hvilken  s 
om  helst  annen  for  ne  i  .  " 

70  PRINT  RT  17,0;  Hvis  ne i  vil  Spectru 
m  dele  ut  bankens  kort." 

80  PRINT  RT  20,6;‘*Trykk  paa  en  knapp." 

80  PRUSE  0 
100  CLS 

110  PRINT  RT  0,0;  5  kort  med  totalsum  p 
aa  21  ellermindre  teller  som  21." 

120  PRINT  RT  3,0;"Banken  vil  trekke  kor 
t  til  han  faar  16  eller  mer, eller  mer  e 
n  n  d  e  9 .  “ 

130  PRINT  RT  7,0;  Hvis  du  09  banken  faa 
r  samme  sum, da  vinner  banken. Dette  er 
’ Bankens  f  or  de  l  ’  .  " 

140  PRINT  RT  12, 0  ; ' Kor t verd iene  er  2  ti 
1  13,pluss  Esset  som  teller  som  1  eller 
M.Uerdien  lor  Esset  vil  automat  i skb l i 
justert  for  aa  9*  en  sum  saanaer  21  som 
mulig." 

150  PRINT  RT  18,0;  Hvis  du  faar  21  vil 
Spectrum  automatisk  dele  ut  bankens  k 
o  r  t .  " 

160  PRINT  RT  21 ,5i "Trykk  paa  en  knapp." 
170  PRUSE  0 
180  CLS 

194  REH 

195  REH  Start  spillet 

196  RED  8J48#888##888H8#8tt8«88#8 

200  CLS 

210  LET  penger=1000 
220  : 

230  PRINT  RT  0,14;  PRPER  2;  INK  7; . 21 

240  PRINT  RT  0,2;  PRPER  0;  INK  6;  SPILL 
ER" 

250  PRINT  RT  0,23;  PRPER  0;  INK  6 ; " BRNK 
EN" 

270  LET  x$=" 

280  LET  y$=" 

290  LET  z$=" 
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Kort  og  godt 


■  I  dette  selvforklarende 
Spectrum  spil  skal  du  nå  en 
sum  på  2 1  eller  så  tæt  på  som 
muligt,  uden  at  overstige  2 1  .□ 
Leil  Kvernh  usvik 


300  FOR  a=2  TO  18  STEP  <1 
310  PRINT  AT  0,2;  PAPER  7;  INK  0;x*;AT 
o,23;  PAPER  7;  INK  ø;x$ 

320  NEXT  o 

330  FOR  o=3  TO  19  STEP  4 
340  PRINT  AT  o,2i  PAPER  ?i  INK  0;yS;AT 
0,23;  PAPER  7;  INK  0;y* 

350  NEXT  o 

360  FOR  o=4  TO  20  STEP  4 
370  PRINT  AT  o, 2;  PAPER  7;  INK  ø;z*;AT 
o,23;  PAPER  7;  INK  0;z* 

380  NEXT  o 

494  REN  80880888888888888888888 

495  REM  Uar  i  ab  ler 

496  REN  88888888888888888888888 
500  LET  l i n je=3 :  LET  sum=0 

510  LET  trekk=0:  LET  ess=0 
520  LET  red=ø 
530  LET  a$="Es s " 

540  LET  b*="Konge" 

550  LET  c®="Dame" 

560  LET  d*="Knekt" 

994  REN  88888888888888888888888 

995  REN  Trekk  et  kort  ( 1 1 

996  REN  88888888888888888888888 
1000  LET  o=2+ INT  CRN0*13l" 

1010: 

1020  1F  o=14  THEN  PRINT  AT  linje, 3;  PAP 
ER  7;  INK  2;o$:  LET  ess=ess+l:  LET  sum=s 
Limt  1  4 

1030  IF  o=13  THEN  PRINT  AT  linje,3i  PAP 

ER  7;  INK  2;d$:  lET  sum=sum+13 

1040  IF  0=12  THEN  PRINT  AT  linje, 3;  PAP 

ER  7;  INK  2  ;  c  $  :  lET  sum=sum+12 

1050  IF  o=ll  THEN  PRINT  AT  linje, 3;  PAP 

ER  7;  INK  2  Ja* :  lET  sum=sum+ll 

1060  IF  o<=lø  THEN  PRINT  AT  linje, 3;  PA 

PER  7;  INK  2 ;o •  lET  sum=sum+a 

1070  LET  t r ekk=t r ekk t 1 

1494  REN  88888888888888888888888 

1495  REN  Innsots  rutine 

1496  REN  88888888888888888888888 

1500  PRINT  AT  6,10;  Ou  har";AT  7,10;oen9 
or  ;  $" 

1510  IF  penger  <=0  THEN  GO  TO  9000 
1520  INPUT  "Hvor  mye  sotser  du  ?  ";.nnso 
t  s 

1530  IF  i nnsots>pen9er  THEN  GO  TO  1520 
1540  PRINT  AT  10,10;"0u  sotser";AT  11,10 
;, nns  ot  s  i  s 

1994  REN  88888888888888888888888 

1995  REN  Trekk  et  kort  (2) 

1996  REN  88888888888888888888888 
2000  LET  l  in je  =  l in je+4 

2010  LET  o=2+ INT  CRN08133 
2020: 


2030  IF  0=14  THEN  PRINT  AT  linje, 3;  PAP 
ER  7;  INK  2;o$:  LET  ess=ess+l:  lET  sum=s 
um+  1  4 

2040  IF  o=13  THEN  PRINT  AT  linje, 3;  PAP 

ER  7;  INK  2 JD* :  lET  sum=sum+13 

2050  IF  o=12  THEN  PRINT  AT  linje, 3;  PAP 

ER  7;  INK  2;c$:  LET  sum=sum+12 

2060  IF  o=ll  THEN  PRINT  AT  linje, 3;  PAP 

ER  7;  INK  2jd$ :  lET  sum=sum+ll 

2070  IF  o<=lø  THEN  PRINT  AT  linje, 3;  PA 

PER  7;  INK  2;o:  lET  sum=sum+a 

2080  LET  trekk=trekk+l 

2090  IF  sum>2]  AND  ess>red  THEN  LET  sum 
=sum-13:  lET  red=red+l 

2100  IF  trekk=5  AND  sum<=21  THEN  LET  su 

m=21 :  GO  TO  3000 

2110  IF  sum=21  THEN  GO  TO  3000 

2120  IF  sum>21  THEN  GO  TO  4000 

2494  REN  88888888888888888888888 

2495  REN  Et  kort  til? 

2496  REN  88888888888888888888888 

2500  PRINT  AT  21,0;  PAPER  5;  INK  0  i "U i l 
du  bo  et  kort  til  ?  (j/n)“ 

2510  PAUSE  0 

2520  IF  INKEY$="J"  OR  INKEY*=" j "  THEN  G 
O  TO  2000 

2530  PRINT  AT  21,0; 

2994  REN  88888888888888888888888 

2995  REN  Bonkens  kort 

2996  REN  88888888888888888888888 
3000  LET  linjeb=3:  LET  sumb=0 
3010  LET  trekkb=0:  LET  essb=ø 
3020  LET  redb=ø 

3030  LET  b=2+lNT  CRNDX13) 

3040: 

3050  IF  b=14  THEN  PRINT  AT  linjeb,24;  P 
APER  7;  INK  1  ;o*  :  lET  essb=essb  +  l  :  LET  s 
umb=sumb  + 1 4 

3060  IF  b=13  THEN  PRINT  AT  linjeb,24;  P 

APER  7;  INK  1  ; D * :  lET  sumb  =  sumb  +  13 

3070  IF  b  =  1 2  THEN  PRINT  AT  linjeb,24;  P 

APER  7;  INK  l;c®:  LET  sumb=sumb  +  12 

3080  IF  b=l 1  THEN  PRINT  AT  iinjeb,24;  P 

APER  7i  INK  1  ;d$  :  LET  sumb=sumb  +  ll 

3090  IF  b  <=lø  THEN  PRINT  AT  linjeb,24; 

PAPER  7;  INK  1  ;b  :  LET  sumb=sumb+b 

3100  LET  trekkb=trekkb+l 

3110  LET  I  i n jeb=  I  i n jeb +4 

3120  IF  sumb>21  AND  essb>redb  THEN  LET 

sumb=sumb-13 :  LET  redb=redb+l 

3130  IF  su mb =2 I  THEN  GO  TO  6000 

3140  IF  t  r  ekkb  =5  AND  sumb<=21  THEN  LET 

sumb=21 :  GO  TO  6000 

3150  IF  sumb>=sum  AND  sumb<=21  THEN  GO 
TO  6000 


3160  IF  s u mb >  =  1 6  AND  sumb <=21  THEN  GO  T 
O  3190 

3170  IF  sumb>21  THEN  GO  TO  5000 
3180  IF  sumb  <sum  THEN  GO  TO  3030 
3190  IF  sumb>=sum  THEN  GO  TO  6000 
3200  IF  sumb  <sum  THEN  GO  TO  5000 

3994  REM  88888888888888888888888 

3995  REN  Du  I ikk  for  mye 

3996  REfl  88888888888888888888888 
4000  PRINT  AT  21, Ø;’' 

4010  PRINT  AT  21,0;  PAPER  1;  INK  7;"Bekl 
ager, du  fikk  "  Jsum-21  ;  1  for  mye.'1 
4020  LET  penger =penger- i nnsat s 
4030  PAUSE  100 
4040  GO  TO  7000 

4994  REI1  88888888888888888888888 

4995  REfl  Du  yinner 

4996  REN  88888888888888888888888 
5000  PRINT  AT  21,0; 

5010  PRINT  AT  21,0!  PAPER  7;  INK  2  i "Du  v 
,nner  med  "Jsum 

5020  IF  sum=21  THEN  PRINT  AT  21,14;  PAP 
ER  7;  INK  2;  FLASH  1  ; "21" :  FOR  a=ø  TO  30 
STEP  3:  BEEP  .Ø5,a:  NEXT  a 
5030  LET  penger =penger  +  i  nns  at  s 
5040  PAUSE  100 
5050  GO  TO  7000 

5994  REN  88888888888888888888888 

5995  REN  Banken  yinner 

5996  REN  88888888888888888888888 
6000  PRINT  AT  21,0; 

6010  PRINT  AT  21,0;  PAPER  7;  INK  1 :  Bank 
en  yinner  med  " isumb 

6020  IF  sumb  =2 1  THEN  PRINT  AT  21,18;  PA 
PER  7;  INK  1;  FLASH  1;  21":  FOR  a=ø  TO  3 
0  STEP  3:  BEEP  .Ø5,a:  NEXT  a 
6030  LET  p enge r =p en ge r - i  nns a t s 
6040  PAUSE  100 

6994  REN  88888888888888888888888 

6995  REN  En  runde  til? 

6996  REN  88888888888888880888888 
2000  CL S 

7010  PRINT  AT  10,5,' En  runde  til  ?  C  j  "o  3 
7020  PAUSE  0 

7030  IF  INKEY$-"J"  OR  INK£Y*=" j"  yhEN  C 
LS  :  GO  TO  230 
7040  GO  TO  8000 

7994  REN  88880888888888808088088 
?995  REN  Starte  paa  nytt  ? 

?9  '6  REN  88888888888080808808888 
8000  CLS 

8010  PRINT  AT  10,  1  ;  <3:1  di,  rtarte  paa  ny 
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5  PRINT"«  VELKOMMEN  TIL  JOE ' S  CASINO  *’’ 

10  PRINT”J” 

SO  P0KE53380 ,0 ! P0KE53S8 1 , OiPRINT"«" 

30  C=SOO ! 0M=0 

45  pr iNT'aaaas  ar 

50  PR  I  NT "  SKEE®K  VELKOMMEN  TIL  JOE’ S  CASINO  8” 

60  pr  iNT’  aaaas  ar 

so  print’  aaaas  ar 

90  PR  I  NT "  aESHEE?  D’J  SKAL  NU  SPILLE  ROULETTE  «’’ 

ioo  print " aaaas;  ®” 

lio  print” ■■ 
iso  print "aaaas 

130  PR  I  NT  ”  SEflSE^  COPYRIGHT  i  BCS0FT  8” 

140  print- ■■ 

145  PRINT 

150  INPUT"  rTXiKKKKKKKM  TAST  DIT  NAVN  "  ;  N* 

160  PR  I  NT  "  *J" 

165  PRINT  ”  "KUKCAMBLER  -  *’  !  NS"  VI  ER  GLADE  FOR  AT  DU" 
170  PR INT"  ffiPESOGER  VORES  OHHH .  LILLE  CASINO." 
iso  print  rMKKKiaaaaai sa  hilsen  joe  the  cas.” 

SSO  FOR  P=1  TO  7500 : NEXT 
330  PR  I NT "J" 


Casino 
Roya  le 

■  Med  din  Commodore  64 
besøgei  du  her  Joe's  Casino. 

Du  får  stukket  en  sum  penge 
ud.  som  du  meget  gerne  skul¬ 
le  forøge.  Spræng  banken  el¬ 
ler  bankerotten  er  sikker!  □ 

Morfen  Brunnstiøm 


340  PR  I  NT”  SE5<RED  I T  =  *  ;  C 

350  PRINT  :7aaaaaaaaaaaaaaaaaaaaaaaaara  MGANG  =";0M+1 

351  0M=0M+1 

354  PRiNT’  HasaaasM  , - ," 


355  PRINT" 
360  PRINT" 
370  PRINT" 
380  PRINT" 
390  PRINT" 
300  PRINT” 
310  PRINT” 
330  PRINT” 
330  PRINT” 
340  PRINT” 


a 

a  m 
a 
a  i 
a 

a  ! 
a 
a 
a 


m  i 


■  5 


a 

a 

a 


I  PLADEN |  " 

a 

3  a 
a 


■ 

■ 


a 
a 

a  ■ 


■  6 


a 

a 

a 


a  i 
$  a  i 
a  i 

i 

a  ■ 

a  i 
a  i 
; 

10  KR. 


a  ■" 
a  ■- 
a  ■" 

a  ■" 
a  ■" 
a  ■" 


350  PRINT:  I NPUT"  53M30R  DIN  INOSATS  MIN.  10  KR.";  IN 

359  IF  0  =500000  THEN  15000 

360  IF  IN< 10  THEN  10000 
370  IF  IN>C  THEN  10100 

380  INPUT"2M=>AA  HVILKET  NUMMER  <  1-8)  ”  J  NR 

390  IF  NR  >8  OR  NR<  1  THEN  10300 
400  TF=INT< RND<  1 > *8  )  +  1 

410  PR  INT”SHCiET  BLEV  NUMMER  :  “ ;  TF 

415  FOR  P  =  1  TO  1 OOO  s  NEXT 
430  IF  TF  =  NR  THEN  10300 
430  IF  TF< >NR  THEN  10400 

10000  PR  I  NT "  .nmiaUPiMPiCi  I N  NAERIGE  GED!  du  har  satset  FOR  LAVT.’ 
10010  FOR  P=1  TO  3000: NEXT: GOTO  230 

10100  PRINT  '.IBlBMIMBIIiU  LIDER  VIST  AF  STORHEDSVANVID!!!!” 

10110  PRINT”S3AA  MANGE  PENGE  HAR  DU  IKKE!” 

10130  FOR  P=1  TO  4000: NEXT: GOTO  330 

10300  PR  I  NT "  JBBBB—E  R  DU  BLIND,  ELLER  BARE  ALMINDLIG  DUM!!" 
10310  PR  I NT "1MUMMERET  FINDES  SLET  IKKE  PAA  PLADEN!" 

10330  FOR  P=1  TO  4000 : NEXT: GOTO  380 

10300  PR  INT"UW-!URRAAAAAA .  DU  HAR  VUNDET  ”;IN*10” 

10310  PR  I NT "NU  HAR  DU " ;  IN* 1 0+C "KR .  " 

10313  C= IN* 10+C 

10315  FOR  P=1  TO  5000: NEXT: GOTO  330 

10400  PRINT"wJSHA  HA  HA  HA  HA  HA.  DU  TABTE IN’’KR .  ” 

10410  PRINT"BPROV  LYKKEN  IGEN  GAMBLER- ” ; N* 

10415  C=C- IN 

10417  IF  C<10  THEN  10500 

10430  FOR  P=1  TO  4000 : NEXT : GOTO  330 

10500  PRINT 'UaHSHH33U  HAR  VIST  IKKE  HELD  I  SPROJTEN  VAR?” 
10510  PR  I NT "Hasp  ILLET  ER  SLUT!  !!!!!!!!!•  |  !!  I  !!!!!!!  " 

I  NPUT  ”103)  IL  DU  PROVE  IGEN  <  J/N)  ";A* 

IF  A*="”  THEN  10530 
IFA*=’’J“  THEN  5 
IF  A$=”N"THEN  END 
15000  PRINT'USHSSKHYYYYYYYYL  DU  HAR  VUNDET  ALLE  PENGENE ” 

15010  PRINT“aSEOM  JOE'S  CASINO  EJEDE." 

15015  PR INT"M3SP ILLET  ER  SLUT!!!!" 

15030  FOR  P=1  TO  5000 : END 


10530 

10530 

10540 

10560 


s.  5 


44  Soft  Special 


3D-Maze 


AMSTRAD 


10  REM  t************ 

20  REM  *  jd  måze  * 

3ø  REM 

4ø  REM  *  «f  * 

50  REM  *  M.B.J  t 

60  REM  «*»*«»*«*****  C 

70  GOSUB  1370 

80  INK  ø.ø  INK  1 ,23: INK  2.6  INK  3.24' INK  4.0,15  INK  3,21  MODE  O  F 

90  DIM  r>o<  25 ),  */<  23  >,  •»<  23  >,u«<  23  >,  4<  23  > 

løø  SC-ø  T-0  PO-30  C 

110  SYMBOL  APTER  90 

120  SYMBOL  90,0,0,0.0.0.0,0,0  C 

130  SYMBOL  91,3,3.74,52,36,120.100.0 

14ø  SYMBOL  92,6.13.28.244,144,144,240  C 

150  SYMBOL  93,60,66,90.90,90,66,60.0 

160  SYM80L  94,24,36,219,126.219,24,36  II 

170  5?MB0L  95,60, 116,127,100  112,124,24,63  , 

180  FOR  4-1  TO  23 
190  READ  *©<•>,»*<  4  >,•»<<!  >,*•<•> 

200  NEXT 
210  4-1 

220  d-INT  <RND<  1  >*13Hll 

230  »1-INT  < RNO<  2  >*25  >♦ 1 

240  IF  »1<20  THEN  »2-»i+3  ELSE  »2-»-3 

230  n2-  I  NT(  RND<  3 )*  1 0 )+ 1 6 

260  n3-r>2-lø 

270  m-INT'RND(4)*23)*l 

280  IF  »l-r>3  OR  »2«n3  OR  n2-»l  OR  n2-*2  OR  »1-d  OR  »2-d  OR  n3-d  OR  n2-d  THEN  GOT 
O  230 
290  4-1 
300  CLS 

310  IF  0-1  AND  KE-2  AND  DM-1  THEN  1320 

320  PLOT  ø.ø  DRAU  6øø,ø  DRAW  600-300  DRAW  ø .  300  DRAW  ø.ø 

330  PLOT  ø,3øø  DRAW  70,230  DRAW  70,200  PLOT  70.230  DPAW  230,230 

340  PLOT  ø,ø  DRAW  70,70  DRAW  230.70  PLOT  7ø,7ø  DRAW  7ø, løø 

330  PLOT  600,0  DRAW  530.70  DRAW  350,70  PLOT  53ø,7ø  DRAW  330.100 

360  PLOT  600.300  DRAW  330,230  DRAW  350,230  PLOT  330-230  DPAW  530,200 

370  IF  no<4»0  THEN  GOSUB  690  ELSE  PLOT  250.230  DRAW  330.230 

380  IF  »*<4>>0  THEN  GOSUB  720  ELSE  PLOT  23ø-7ø  DRAW  33ø,7ø 

390  IF  #»<4»0  THEN  GOS  UB  740  ELSE  PLOT  70.  løø  DPAW  7ø.2øø 

4øø  IF  v*(4»ø  THEN  GOSUB  760  ELSE  PLOT  330.230  DRAW  530, 7ø 

410  »•-“INGEN  TING"  PO-PO-1  SC-SOIØØ 

420  IF  4-d  THEN  »•-"DIAMANTEN ' I t-3 

430  IF  4-n3  OR  4-n2  THEN  »«-"EN  NØGLE! M-t-2 

440  IF  4-*i  OR  4-»2  THEN  »»-"ET  SVERR"*'  t«l 

450  IF  4-w  OR  Z>0  THEN  GOSUB  1030 

468  LOCATE  1,1  PEN  3^  PR I NT “JEG  SER  -HrS* 

470  A-10  B-16 

480  IF  4-m  OR  z>0  THEN  LOCATE  3, 16  PEN  7  PRINT  CHR*.95>> 

490  IF  »v-2  THEN  LOCATE  1,6- PRINT  "CC“  ELSE  IF  sv-1  THEM  LOCATE  1,6  PRINT  “C" 

500  IF  k#-l  THEN  LOCATE  4, 6  PRINT  "N*  ELSE  IF  k*-2  THEN  LOCATE  4-6  PRINT"\\" 

31ø  IF  dm-1  THEN  LOCATE  V, 6  PEN  4  PRINT"D" 

520  IF  P0<3  THEN  LOCATE  3, 3 -PEN  4 ■ PR I NT "ENERGI  LAV" 

530  IF  t-3  THEN  PEN  4  ELSE  PEN  3 
340  LOCATE  12,14  PRINT  CHR*< 90* t >j 
550  LOCATE  A.B  PEN  5  PRINT  CHRR(94)j 
360  IF  JOY<  0  )*0  THEN  330 
370  LOCATE  A.B  PRINT  "  "j 
380  IF  P0<1  THEN  1270 

390  A-A-<  JOY<  0  >8  AND  A<  16  >♦<  JOY<  0  >-4  AND  A>4 > 

600  B-B-<  JOYC  0  )»2  AND  B<20  >♦<  JOY<0  >«1  AND  B>12> 

610  IF  *-12  AND  b-14  THEN  G0SU8  1210 
620  IF  *-5  AND  b-16  AND  <4-«  OR  z>0>  THEN  109ø 
630  IF  A-4  AND  #*(4»0  THEN  4-*»(4)  G0T0  3øø 
640  IF  A-16  AND  w#<4)>0  THEN  4-w«<4>  GOTO  300 
630  IF  b-12  AND  no<9)>0  THEN  4-r»o< 4  ) •  GOTO  300 
660  t-0 

670  IF  B-20  AND  »*<4>>0  THEN  4-»*<4>G0T0  300 
680  GOTO  550 

690  PLOT  230,230  DRAW  250,280  PLOT  230.230  DRAW  220,280 
700  PLOT  220,280  DRAW  380.280  DRAW  338,230  DRAW  350.288 
710  RETURN 

720  PLOT  230,70  DRAW  220,20  DRAW  380,20  DRAW  350,70  DRAW  330.20  PLOT  25ø.7ø  DRAW 
230,20 
730  RETURN 

740  PLOT  70,100  DRAW  2ø,7ø  DRAW  20,230  DRAW  70,200  DRAW  20,200  PLOT  7ø, løø  DRAW 
20, 100 
730  RETURN 

76ø  PLOT  330.200  DRAW  580. 230  DRAW  380,70  DRAW  530.100  DRAW  388,100  PLOT  330.200 
DRAW  580-200 
770  RETURN 
780  DATA  0.6. 0,2 
790  DATA  0,0, 1,3 
8ø0  DATA  8-8- 2, 4 
810  DATA  ø.ø, 3. 5 
820  DATA  ø.ø. 4,8 
830  DATA  1.11,0,0 
840  DATA  ø,ø,0, 8 
850  DATA  3.13,7,9 
860  DATA  0.0,8. lø 
87ø  DATA  8, 13,9,0 
380  DATA  6.0-0-12 
890  DATA  ø.l7  ll.ø 
9øø  DATA  8. 18.0-14 
910  DATA  0.0,13.15 
920  DATA  10-20- 14. ø 
930  DATA  8-21.0-17 
94ø  DATA  12.0.16.0 
950  DATA  13.0.0.19 
960  DATA  0-0-18,0 
978  DATA  15,25,0,0 
980  DATA  16-0,0,0 
990  DATA  8,0,0,23 
løøø  DATA  ø.ø, 22- 24 
lølø  DATA  ø.ø.23,25 
1020  DATA  20-0-24,0 
lø3ø  zc 2* 1  IF  z-4  THEN  1098 

1040  IF  SV  0  THEM  »•-"EN  MAGTET  OPt  ""  z*ø  M=  l NT< RNO 1 25 >♦  1  SV-SV-1  SC-SC+300  PO 

■PO-3 

1030  IF  z— 1  THEN  »*-“EN  ORK ' 1 ' H JEALP ' ! " 

1060  IF  z-2  THEN  »•-"ORKEN  IGEN"" 

1070  IF  z-3  THEN  »•■"SAA  GØR  DOG  NOGET'" 

1080  RETURN 
1090  CLS 
1100  PEN  6 

1110  IF  *v>0  THEN  308 

1120  LOCATE  4,3  PR I NT " ARRHGGG. .. DEN  KORT-" 

1130  LOCATE  4,7  PR I NT "SLUTTEDE  MIT" 

1140  LOCATE  4,9  PR I NT" KREDSLØB. .. " 

1130  LOCATE  8,11  PRINT"  JEG  ER  "  PEN  4  PRINT  TAB<  5 >;  "FÆRDIG - "i 

1160  LOCATE  3,18  PRINT  "SCORE  •“,SC 
1170  PEN  2 

1180  LOCATE  7,23  PR  I  NT"«' SPACE  >** 

1198  WHILE  INKEY' 47)00  WEND 


■  1  dette  spil  gælder  det  om 
at  tinde  den  lantastiske  dia¬ 
mant,  der  itølge  sagnene  lig¬ 
ger  nede  under  byen.  Pd 
grund  at  gittige  dampe  har 
du  en  robot,  som  du  skal 
Ijernstyre  rundt  i  gangen  med 


joysticket. 

Undervejs  i  jagten  risikerer  du 
at  støde  pd  et  uhyre.  Oveni 
det  hele  har  robotten  selvløl- 
gelig  kun  begrænset  strøm!  □ 
Mikkel  Birkegaard  Jensen 


W 


1200  RUN 

1210  IF  4-d  THEN  dm-1  d-0  t-0  SC-SCMØOO  LOCATE  6,6  PEN  4  PPINT”3  " 
1220  IF  4-»  1  THEN  » v— »v* 1  c  1  —0  t-0  SC-SC-Møø  LOCATE  3.6  PRINT"C" 

1230  IF  4— »2  TMEN  »v-»v*l*2-0  t-0  SC-SC* løø  LOCATE  3,6  PRINT"C" 

124ø  IF  4-n2  THEN  k*-k**ln2-0  t-0  SC-SC-MØØ  LOCATE  3,6  PRINT"  “ 

1230  IF  4-r*3  THEN  k*-k#*l  n3-0  t-0  SC-SC *200  LOCATE  5.6  PRINT"  ' 

1260  RETURN 

1270  CLS  PEN  4  LOCATE  l.lø  PRINT" IKKE  MERE  STRØ..." 

1280  LOCATE  3,14  PEN  5  PPINT"SCOPE  -",SC 
1290  LOCATE  7-23  PPI NT" < SPACE)" 

1300  WHILE  INKEY' 47  >00  WEND 
1310  RUN 

1320  CLS  SC-SC* 100004PG  PEN  4  PRINT"R0B0-1  ER  UDE  "  ! ' " 

1330  PEN  1  LOCATE  1,16  PRINT  TA8< 5 >,  "SCORE  -".SC 
1340  LOCATE  7,23  PR I NT "< SPACE)" 

1350  WHILE  INKEY<  47  X  >0  WEND 
1360  PUN 
1370  MODE  1 

1380  INK  0-27  80RDEP  ø  INK  1,13  INK  2,0,6 
1390  LOCATE  15-3  PEN  1  PRINT  “3D  *9Z*" 

1400  LOCATE  5.7  PRINT"ET  GAMMELT  SAGN  SIGER" 

1410  LOCATE  5.9  PRINT-AT  I  KATAKOMBERNE  UNDER  DIN  BY" 

1420  LOCATE  5,11  PRINT"L IGGER  EN  STOR  UVUDERLIG" 

1430  LOCATE  15, 13  PRINT"DIAMANT" 

1440  LOCATE  3,15  PRINT"MEN  I  KATAKOMBERNE  ER  EN  " 

1430  LOCATE  5,17  PRINT"GASART  DEP  NAESTEN  AETSER" 

1460  LOCATE  3-19  PR I NT "ALT. DERFOR  HAR  DU" 

1470  LOCATE  5,21  PR I NT "LAVET  EN  ROBOT  ROBO-1)  SOM" 

1480  LOCATE  5.23  PRINT "SKAL  GØRE  ARBEJDET  FOR  DIG." 

1490  LOCATE  3,23  PRINT"R0B0-1  HAR  MEGET  BEGRÆNSET  STRØM" 

1500  WHILE  INKEY*-""  WEND 
1310  CLS 

1320  LOCATE  3,1  PR  I  NT  “SAA  DERFOR  MAA  DU  VÆRE  HURTIG" 

1330  LOCATE  3-3  PPINT"OM  AT  DIRIGERE  HAM  RUNDT." 

1840  LOCATE  3,3  PR I NT "UNDERVEJS  FORTAELLER  ROBO-1" 

1330  LOCATE  3, 7 ' PR I NT "HVAD  HAN  SER.NAAR  HAN  HAR" 

1360  LOCATE  3,9  PRINT "FUNDET  DIAM. OG  TO  NØGLER  SKAL" 

1370  LOCATE  3,11  PR I NT "DU  HURTIGT  FØRE  HAM  TIL" 

1380  LOCATE  5. 13  PR I NT "UDGANGSPUNKTET. EN  ANDEN  TING" 

1390  LOCATE  3.15  PR I NT “SKAL  DU  VIDE  I  LABYRINDEN  GAAR" 

1600  LOCATE  3,17  PR  I NT “EN  ORK  RUNDT  DEP  SYNES" 

1610  LOCATE  5,19  PRINT"AT  TRIVES  MED  GASSEN. DEN  ER" 

1620  LOCATE  15,21  PEN  2  PRINT"FAPLIG" 

1630  LOCATE  6,24  PEN  1  PR I NT "TAST  \ SPACE >  FOR  SPIL" 

1640  WHILE  INKEY<  47)00  WEND 
165ø  RETURN 


Soft  Special  45 


1  REH  UED  ’ BREAK’  BRUG  'GOTO  20’ 

2  POKE  23658,8:  BORDER  7:  INK  0:  PAPE 
R  ?:  FLASH  0:  BRIGHT  0:  OUER  0:  INUERSE 
0 

11  GO  SUB  9090 

20  CLS  :  PRINT  "SPIL  SCORE 

NAUN" 

30  PRINT  " - 

39  LET  2=65 

40  FOR  T=1  TO  SPIL 

50  PRINT  CHR*  2;".  "  ;S*CYI  ";R*CY);N* 

C  Y  3 

55  LET  2=2+1 
60  NEXT  Y 

70  PRINT  " - 

80  PRINT  ttliAT  I  .  0  J  "HAR  DU  SLaET  REKOR 
DEN  Pa  ET  AF  DISSE  SPIL  "i  PLASH  li"?" i 
PLASH  ØJ"  (J/N) 

90  PAUSE  0:  1 1  NKEY*  =  ""  THEN  GO  TO  9 

0 

100  IF  INKEYt  •'  THEN  GO  TO  1000 
110  IF  INKEY4  N"  THEN  GO  TO  2000 
120  GO  TO  90 

1000  POKE  23617,236:  INPUT  "HUILKET  SPIL 
:,i  FLASH  li"?"J  PLASH  ØJ"  ( TAST-  BOGSTAU 
)"  JX 
1010 
1011 
1020 
1030 
1040 
1045 
1050 
1060 
1070 
2000 
DATA 
/N) 

2010 
010 
2020 
2030 
2040 
3000 
BAGE 
3010 
3020 
BAGE 
REN. 

3030  UERIFY  "REKORDER" 

3040  GO  TO  20 

4000  PAUSE  0:  PRINT  4 1  ;  AT  ),0j" 

TAST  ’S’  FOR  AT  S 

TOPPE" 

4010  IF  1NKEY*=" "  THEN  GO  TO  4010 
4020  IF  !NKEY$="S"  THEN  STOP 
4030  GO  TO  4010 

9000  LET  SP IL=1 1 :  POKE  23617,236:  DIN  S* 
(SPIL, 12):  Din  R$CSPIL, 7) :  Din  N*CSP1L,1 
0) 

9005  FOR  Y=1  TO  SPIL 

9010  INPUT  "SPILLETS  NAUN  "i  LINE  A* 

9011  IF  A*=""  THEN  GO  TO  9010 

9012  IF  LEN  A*> 12  THEN  GO  TO  9010 
9020  LET  S*(Y)=A* 

9030  INPUT  "SCORE  "i  LINE  B* 

9031  IF  B*=“"  THEN  GO  TO  9030 

9032  IF  LEN  BS>7  THEN  GO  TO  9030 
9040  LET  R*CY)=B* 

9050  INPUT  "SPILLERENS  NAUN  "J  LINE  C* 

9051  IF  C*=""  THEN  GO  TO  9050 

9052  IF  LEN  C*>10  THEN  GO  TO  9050 
9060  LET  N*CY)=C* 

9070  NEXT  Y 

9080  LET  A=1 :  LET  B=2:  LET  C=3 :  LET  D=4 : 
let  E=5:  LET  F=6:  LET  G=7 :  LET  H=8 :  LET 
1=9:  LET  J=10:  LET  K= 1 1 :  LET  L=12:  LET 
11=13 :  LET  N=  1 4  :  LET  0=15:  LET  P=16:  uET 
0=17 

9085  GO  TO  20 

9090  FOR  Y=USR  "A"  TO  USR  "A"+7:  REAO  S: 

POKE  Y, G :  NEXT  Y:  RETURN 
9095  DATA  24,0,60,66,126,66,66,0 


INPUT  "SCORE  “i  LINE  B4 
IF  B$=" "  THEN  GO  TO  1010 
IF  LEN  B*>7  THEN  GO  TO  1010 
LET  R*CX)=B* 

INPUT  "HU AD  ER  DIT  NAUN  " J  LINE  C* 
IF  C*=“"  THEN  GO  TO  1040 
IF  LEN  C*>10  THEN  GO  TO  1040 
LET  N*CX)=C* 

GO  TO  20 

PRINT  41 ;AT  1 ,ØJ"UIL  DU  SAUE  DISSE 
Pa  BaND  “  J  FLASH  1  i  FLASH  ØJ"U 

PAUSE  0:  IF  INKEY*=""  THEN  GO  TO  2 

IF  INKEY*="J"  THEN  GO  TO  3000 
IF  INKEY$="N"  THEN  GO  TO  4000 
GO  TO  2010 

CLS  :  PRINT  AT  9,6;"SP0L  BaNDET  TIL 
OG  TRYK  Pa  EN  TAST.” 
PAUSE  0:  SAUE  "REKORDER"  LINE  1 
CLS  :  PRINT  AT  9,2;"SP0L  BaNDET  TIL 
OG  TRYK  Pa  ’PLAY’  Pa  BaNDOPTAGE 


Guinness 

Records 

■  Er  du  bedre  end  din  far  iil  at  trum  1 6K/48K.  skriver  du  '  'GO- 
spille  PacMan?  TO  9000 ' ' . 

Er  du  bedre  end  din  bror  til  at  Computeren  spørger  dig  om 
spille  '  'Space  Invaders"?  1 1  at  dine  spilleprogrammers 
Har  du  sidet  din  vens  rekord  i  navne,  om  1 1  "High  Scores" 

'  'Jet  Set  Willy"?  og  om  navnene  pd  de  1 1  spil- 

Med  programmet  "Rekor-  lere,  som  har  "Hich  Scores", 
der"  kan  du  hurtigt  tinde  ud  I  linie  9090  og  9095  laver  vi  et 
at .  hvem  der  er  ndet  længst  i  "Å  "  ud  at  gratisk  "  A " .  Sd  du 
hobby  'en  og  hvor  langt  han/  skal  huske  at  rette  det  i  linier¬ 
hun  er  ndet ,  og  om  du  er  ndet  ne  2000 ,  3000  og  3020 . 
længere.  Huskat  "SAVE  "hver  gang  du 

Ndr  du  har  tastet  hele  pro-  ændrer  pd  navnene. □ 
grammet  ind  i  din  ZX-Spec-  Karsten  Hansen 


46  Sott  Special 


uzrtU..  >»*«lf:  Mzrt<uM.  i)«‘ 


ll»t  KiiMlUiinl*  8581 14 

21  EN 

38  GOSUB  21« 

48  «K  i:  8CEER  S:  I**  8.8:  Ink  1.24:  PEN  |:  »PER  I 

58  LOCATE  03:PRIHT  ‘VtikMWf  t.i  3D-  «»- ,»t. *:  uflMCYt:  If  jrf."  T«N  58 
61  ODE  2:  EFINT  , 

7|  HlrøOu  II.  16.65.4. 19 

88  f*i»»8:  truMl  ' 

38  k<s(ii» 

i«  ooslb  :a 

Mcnrn* 

128  lOCATE  I.IH  »RIN T  *  Tryk  »>  «r.  * 

138  UDCflTE  1,12:  PRINT  •  t«t  for  *  * 

148  -3C0’E  11:  381NT  •  r„  >l0I,  r. 

158  kkfINCVt:  1F  iO»"  GOTO  158  I 

168  mi  a  m 

178  GOTO  a  ^  ■ 

1«  as:  I.KATE  IB.  18 

i«  i*ir?  lauvriK  nlrr*ii»  <«.*)  :  ■;  »•  _ 

M  RRKOnZC  T1IC  -  i 

218  i****Hr-i:  tt=M*i:  *»**»♦! 

221  DIN  •iz*<M»:.wl).z»iBl.z2*i8'.ff*<8' 

238  DIN  øi(18). ru(l8).yd(18>.<ut(4).«uUM8)  I  mmmg, Tn.An.  I 

248  m>:  «r:  »*199:  m=2»:  am*:  wr-m,  I  AMSTkAU  I  — 

25B  n>u*2:  v»««y»2**8:  i*vi  I  I  K$  I 

268  ORI  GIN  128.98  I  1^1 

278  RW  .*1  TG  IB  |  |_J | 

2«  dx(.)n:  »ui.)*vy-i*v7/«:  rd<  .)*vmi»<«r-yy)/yi<:  mk*7.5/1I  * 

29B  ICXT  . 

3«  RIR  .*1  TO  wi:  uz*< I. . )««Mf »  Nzrt(u«l.  .J»M8f :  NOT  , 

318  RM  .*2  TO  u 

32B  MMø(i.ir»l»'MNat  •izH!, .l)«*8»8r 

>38  FOR  ,«2  TO  *»:  «Z«<..*»’r.Ual  **T  , 

34«  *IT  . 

358  •izøtd.  1)*-8CG8-:  auiBC.silU'M«' 

368  aurtCtt*!.  r*,BBBB*t  uzrt  u Møe- 

:tb  innM:  innM:  4>1 
3«  lOCtTE  1012:  PRINT  *3.«:.*. * 

3«  tflCBTE  18.14  :P81NT  ‘LM»r.niM  Mn«r»rM*l 
4«  FOt  uwt=l  TO  n 
418  dor.mFW.SE 

428  .4 

438  :c  MZrt<r-;,i»«a||||*  ThEN  .>•♦18  cut<4)>l 

448  If  MzHCr.«-l))**im*  riCN  ,•«♦!:  cut < . )*2 

458  IF  uzøi)r*i.f)) t'UH*  TI«  cut (.1*3 

468  IF  ttz«8(r,f»l))a*||ir  T)€N  .«.♦!:  cutl.)=4 

478  If  ,0«  GO  48*  aSE  358 

4«  i*lNT(M*i*ll 

4»  IF  c«t(.)«l  Tt£N  amMr.t>«f*ntO»<aaz#Mr.*),2.3):  mT-i:a*i*(r.*>*l!l«<«Éi««<r.*M.2>>ar«W0M«Z*(r.R).0 1) 
188  IF  cut< .)*2  Tl€N  Mj*4tr.s>N1IMlMZ*»(r.»).t.3)f|-:  Mirliuz*(r.«>*TI*t*»Zf«(r.*>,I.I>»,r«*IDM«Z*(f.l).3.2) 
518  IF  c«t<.)«J  T>€N  uz«t(r.s)*HDIlMztl(r.tM.2>**B*tniD»(uzH(r.«>,4.1>:rif*::Mirt(r.t»*a*»M0«'a«zf«<r.t).2.3> 
52*  IF  cull.lM  THEN  •*z*«lr.tK5liMZ»»ir.»M.l)r,8*Hil0Ktti«4lr.*).3.2):4n»l:MZ»*(r.*)**13D*(Mif4if.»1.1.3)**8* 
ISe 

548  GOTO  678 

ae  time 

568  IF  dl  THEV  571  ELSE  628 

57«  IF  r**.  T>CH  5«  ELSE  68B 

538  IF  c>y  T)CN  r*2:  f»2  ELSE  M«1  l  d-d 

598  GOTO  668 

t«  rn*d 

618  GOTO  G6l:  REN  E7CIF 

628  IF  m2  riCN  638  ELSE  650 

638  IF  m v  O«  m«.:  »»2  ELSE  Mtl:  d-d 

648  GOTO  668 

658  mm* 

668  IF  M:*4<r. »MIM  111*  THEN  678  ELSE  558 

678  :f  dOM-8  T)£N  428  ELSE  688 

688  PRINT  «?.  Vi 


Amlab 


7:s  .>  Hr<N»(wr-l>*2) 

728  «4!«(>.r<'aeaa* 

ra  .tt:e4i.,2i*N3MiM2rti  ,.2).t.3)»*r 
*e  htIKT(.«0*(N.-l>»2) 

738  hl«n!  vl»v 

TS8  JWTE  18.16:  RRINT  laMrmt  Hrd.l  *>ort.  * 

778  «*RINT  08»(7); 

7«  f*IIT(R®*4»l  1 
798  IF  ml  TVEN  r«:  m-1 
3«  IF  f>2  n€N  mi:  »>• 

810  IF  f*3  T»€N  ml:  Ml 
328  IF  f>4  T)€N  |»-|«  cl 
338  dOkmfAUE:  au.MfALSE:  nH:  n>r* 

B48  as 

358  30S«  1328 

868  iXrø  10. 2:  HINT  *!Mi ’Nø'dSf.  Sid  VW,  »*4- J.4) 

BT8  JICPTE  23.22:  PRINT  •&»*  •;0«*(242>:“  "TOMUMII*  •:CHR»(243i;* 

B8B  MHt  MØ—6:  6.1*485:  wl>  257:  GOSUB  1918 

B90  x8=-15:  brB-l9:  b.lMlS:  krl«  267:  GOSUB  1918 

*8  OftØU  -5.-6:  <€VE  -5.257:  WU  -15.267:  rffÆ  4*5.217:  DfiFfci  415.267 

918  t)VE  405.-6:  OWN  415.-19 

928  n».or:  ker*8 

938  IF  kt|  T»£N  MttlWEn:  IF  ttl="  ThO  9!8  ELSE  ««RSC<44») 

948  IF  ic242  ThEN  930  ELSE  1*28 

958  ff-l 

960  IF  f(|  THEN 

378  IF  f«l  THEN  »*-t 

938  IF  m2  THEN  ml:  »4 

998  IF  Mj  TH£N  m*  Ml 

J8C  IF  f*4  T1«N  m-|:  9=9 

:«:•  mi  ;j:t 

1821  I'  ««243  tf«  1831  ELSE  U« 

:r»  f«f*i 

442  IF  #)4  T1«N  ml 
X2  I?  ml  Ti«  r^:  m-1 
1W  IF  f«2  HfN  ri:  v4 

1178  IF  f*3  TUN  m#:  ml 

.»  V  f*4  TUN  m-l:  v9 

.898  31 SUI  1328 

1181  !F  .';tø  :*N  Kil  LSE  1188 
ll'.l  :«:S»<tt»4f-l;*MZrtl».Vj+UZ*tlh.V! 

::;i  if  niOBnø.«. i»*r  then  print  Chr»(7m:  go*g  i:bb  EL9E  i:38 

1138 

1141  1“  r>Oim  TH£N 

1158  k*k»r:  mv»* 

1161  IF  v(2  T>€N  dOftmTIW 

1171  3CSUB  1328 

1188  If  .*OSC(*0*>  OS  mRSC(V)  TtfN  «i.l>TU:  MfTIU 
1191  1«  k<ØCCS*)  OS  mSeCJV)  OS  k«32  Tio  1288  aSE  1278 

M  GOSUB  16« 

1218  w*t>:  »*y:  GOSUB  1648:  EH  «»ec  mriimv) 

1221  IF  u«**“  T«EN  1228 

1231  as 

:2il  0R1GIN  128.« 

1258  OCSUI  1328 

1261  PBlNTCHUfTl: 

1271  IF  #>r*=9  361  ELSE  1288 

1288  IT  40*  «M  MN  PRINT  OS*(7)l 
12«  30SUØ  16« 
i 38«  GOSUB  1931 
1311  RETUIN 

132«  n»2:  m,i  b»y:  mttSPflBtu-1) 

.3«  aai 

lia  z«*MZ*«i4.b):  rt*ff»»z**rt 

135«  IF  RIOB(t«.S.I)**r  TfliiH:  GOSUB  147«:  »TO  1388  ELSE  1368 

1361  z2Wiz»iiVs.  ø-r) :  z2*=ff**z2Vz2l 

1378  IF  Hlimz2». 8.  ll«*l*  THEN  n-l:  GOSUB  153« 


for  it  firttø  d.«’::iOO)TE  1. 23 


1 3»  IF  NIM(z«.7.1)«*l‘  MN  ni:  GOSUB  1471:  »TO  1418  aSE  13« 
II«  :2Wåz»*<i-vo»r):  z2t«ff**z2»fz2» 

•*B8  IF  1IDMx2«.8.1»*r  TICN  ril:  GOSUB  1538 

1418  IF  N[D»rIf,8.l>«*l‘  TiCK  1428  &SE  1438 
1428  GOSUB  15«:  »>999:  GOTO  1448 

1438  %**♦!:  a>d*r:  b*b»s 

ua  IF  k»>a  T>€N  Ut>l««CY*:1F  *»«0"*  T«N  «by*ftSCU*»i 
1458  IF  1>8  01  »<2  OS  km  08  TXN  1460  aSE  1340 

1468  *TU»  n  _  - - 

1478  ’WÆ  «*ri4id*(M|),K)(»-i)  V  t 

lt30  DSCØ  vi»ri»d«i»).yM(i»)  > 

U«  DS«  vi»ri*dk(d).rd<nl  < 

1501  DRQW  vr*ri*di(i-l>.rd<i»-l)  jflB 

1518  IF  »12  TICN  OMR  v»»ri*di(»-l). 

1528  R£TU*  |  [ 

151«  1NÆ  i»d«(k-l>.  iv(u)  I  i  K 

1541  DRW!  vi*M*dN(*).TO<n>  V  \ 

1550  DRCR  vi*ri«dk(n).yd<n)  ,| 

1561  DROM  vi»ri»dk<»-l).rd<nt  I  |i  i 

1578  RETU*  II;  ''V 

ISBI  N1VC  vi«d»(n).»t/<ni  pV  r!. 

15«  MOR  vi*di(»).  rd(n)  /  'V 

160«  CRPN  v«-d«(*>.rd<M  \  I  O 

1618  DRCR  vi-di(»).rv(n)  L  I;  .. 

1621  DRCR  vi*di(d>.ro(n)  \jt-  ■«  •*  r  ’Cr* 

1631  «TU« 

1648  rølC  f«>8.25»*ikc*.  (r«Øb5>»mon  w  , 

1658  DRORI  1Skkmi.Ii  I  a  k 


■  Du  bliver  lukket  inde  i  en  to- 
dimensionel  labyrint,  som  du 
så  skal  slippe  ud  ai  i  færrest 
mulige  træk. 

Du  vælger  selv  labyrintens 
størrelse,  t.eks.  10x10  felter, 
men  du  kan  tå  op  til  50x50 
telter. 

Når  du  er  kommet  ned  i  laby¬ 
rinten,  styrer  du  med  dine  cur- 
sortaster.  Med  space-tangen- 
ten  kan  du  kalde  et  billede  at 
labyrinten  trem,  så  du  kan  se, 
hvor  udgangen  er. 

I  øvrigt  tår  du  et  tre-dimensio- 
nelt  billede  at  gangene  når 
du  vandrer  rundt  nede  i  laby¬ 
rinten. 

Til  sidst  en  lille  advarsel:  Hvis 
du  vælger  en  labyrint  med  50 
x50  telter,  kommer  du  til  at 
vente  meget  lang  tidmens  la¬ 
byrinten  genereres.  □ 

— ^  Klaus  Kallesøe 


1668  NOVCR  i-Ø.  251  »ikon .  I -8.25' »rker. 
1678  ORflHl  I.  iB.5)*fkOA<  1 
16«  tErij* 


1718  IF  »i.t^LSE  M  øonfTØJE  Tl€N  1721  ELSE  1730  «  //  ^  Wr//iy//A  Ul 

1728  LDCfiTE  1.2:  «INT  •  Brjvo  di  *.  Y/ a///A 

1731  UBfflE  1.3:  W1NT  *  »r  ud«  >  *.  r>  .  H'E/JJJ-  Jk 

1748  LOER  TE  1.4:  PRINT  •  ‘SMftrU*.  T  \  °  i\  \å 

:£  \ll  r  J 

:s  'i 

IBM  kkom58»(4»./M):  »km- 3«/ i  7\  i 

1  Bl 0  MIGIN  125.4«  _  X  n 

1828  FOR  .»«r*l  TO  I  STEP  -I  J  \  X 

1838  FOR  .»  ul  TO  I  STEP  -1  /\  K  ^  Xji 

1841  HM  >*KKM.  <*»KM  [  A*jT  >1  Y  li 

1858  itNNia«:...)  '■*•*«•  \  \  £^\  /I 

1861  IF  NJD«z*.l.l)T  THEN  DWuR  «.  l*mon  OSE  WÆR  llmtM’  \  l\  \ 

1B7I  IF  Hl  DM  Zt.  2.1)«*  I*  T*N  DWM  l*>kon.l  ELSE  HWEJ>  Uikon.l  '\J  \jy-j'  «T  (gpj,  | 

19«  REUi*.  ’  ^\v  N. 

1918  røVC  M8.M8:  DRW  ml.kfl:  DRCR  bil. Mi:  WRU  kkl.biB:  D>CN  MØ.MI  \V  I  \.4., _ _ _ 4.  ‘ 

1928  «TUW  Xv/ 

1948  IF  l«tM8«  T«N  .Mfl«8  jV\,  /  \  \ 

195«  »*Mt  ml  \  /  \ w-v-  •  X 

196«  GOSUB  1641  I  Xr 

197«  GCSUB  23«  \  t  /y^  \ 

19BB  FOR  .«!  TO  i«t  X  \  /\.  V\  ..till 

19«  mMIPKEYI:  IF  hH"  THEN  1998  r^lth  Vv.  - 

2M  ok»k:  *»■»:  mmik(.):  k»k-(n>2I»<>«4):  mr«(Ml)-(f3)  7 Hil/))) Jftil I HLW .  X^*'  -  _ 

»8  kk«o«s  »r»0»J  OOSUB  *0  / f }/ N / / /MttU} 

2*21  OOSUB  16a  “Wk  Xv 

2*31  KXT  ,  \  'XSv 

2041  ETUW  A  \  VV-. 

1858  rø\C  '.»♦«.  25)»»ko4. (ir*€.5)»mon  \  _ _  .\  Vl 

»8  WWR  'B.  5)*>km.Ø.  8  - “ ’  \  7 x,*. 

2871  HCNC*  1-8.25»»ikm.(-8.25)*»k»  ]  J  - 

1*8  DRAM  0(8.  5>»»km.I  I  / 

::«  NODE  2:  BORDER  5  (1  <•/  /7  />  ) 

2111  SYrøaflFTai45  \\  V/  /&  /\  •<  l| 

2121  S»røa  ABC« •♦•».!». 216. 216. 254. 21 6. 216. 222  •  \  Kai  \ 

21«  STrøa  flBCfa*).  122.132. 138.  U6. 162.66.1«  )) £VÆJ  '  J 

2ia  Sri«L  (8CIV1.S.H24.19B.254.19B.19B  '//  M 

21«  SYrøQL  CKC(M.8.ø.ll6.26. 126.216. 118  r/  \\  »7®«^ 

2161  STrøa  «SC»*n. 8.0.118.204.214.182.22«  *1  r\  éi  /i  / 

2171  SVrøa  C6Cf)*>.a.H28.l2.l2*.2l4.n8  ’  f W  M 

21«  STrøa  CBCrf).  124. 198-1«.  19B.  198. 198. 124  \ff/K  ^ 

21«  REY  DEF  29.1.RSCCC>.flSC',»*) 

2M  <EY  EF  29. l.ASC<*i*>.C6C(*a*>  /V^tI  7  _ 

2211  KEY  EF  26.1.«C(*)a).«C(V*>  ' 

222«  NEV  EF  l9.1.«CCC).«CCri  //j 

2238  KEY  EF  :7.l.flSC<*«*>.fl8Cf*') 

aa  KEY  EF  39.  t.«c<*.  l.flBCCf)  /•  yyxD — ^T\  f 

a«  KEY  EF  3i.i.MC(*. •>.«(•:•}  H Mv/jLf^  ■  "Jh1  rv' 

2268  KEY  EF  32.l.fl6C(*r».fl6£C.')  /.’Æ¥/A\> - ^  /\ 

278  key ef  i5.i.«er>.c6crr)  /,'/  V/jB > li 

2«  key  ns.*.*  /  i  J// 

:m  secd o:  if  »-i  goto 23a  ^ 

2318  SOJND  k.a.23.15:Q0T0  23M 

2328  DfiTa  239.91. 198. 119.6  1«.  119. 198. 113. 11S.  119. 119.8. 119. 116. 1B0.95.1I9.1K. 95.8. 127. 1^8. 119. 119- 119. 119. 119.213.201. 198.119  9 
.0  119.0  190  119. 110 119 119. 1100 142. 150 160 142. 11095.0  i«.  110 142. 106.  IR-  IR.  IR.ØØ  .  213.201 

2131  DATO  19011001*.  1100  t«.  110 110110  119.0  110 116.1«. 95. 110  IR. 95.0  127.. R.Ø  110  110110110119*0  110  IR. 95. 110 186.  • 

95. 0 1 10  IR.  11095. 110  86.95. 0  1 10  IR.  11090 1 10  IR.  95. 0  127.  .R.  ø  .  10 110  HØ  110  -J 
sa  5Ei% 


> 


Sott  Special  47 


PQKE  23617,166:  LET  h=50:  POKE  23603,20 


lET  h$="Over  Zuluen" 


4  LET  a=10 


7  LET  ba=4 

10  LET  Da=ba+1 

11  DIB  a(2,  ba) 


Blindebuk 


fll  iWSSSWHBSMBB  j 

■I  jer* -9  «■  OH 


12  LET  bb=ba 

20  PRINT  OT  1,0!  INK  2! "OROOOftOOfiOflftfiOOOOAOROOOORfiOOOOOfl" 

21  FOR  r,=  1  TO  20:  PRINT  AT  n,  O!  INK  2i"B"SAT  n,31!"A" 

22  NEXT  r. 

30  PRINT  INK  2 ! " AAROAA AAAflAARAAAOOAAOROAAOAAARAR " 

40  FOR  r,=i  TO  (RND*30)+40 

41  PRINT  OT  (RND*20>+1,  RND*3i !  INK  2! "A" 

42  NEXT  n 

43  PRINT  AT  a,b!  INK  7!  "B" 

44  FOR  n=l  TO  ba 

45  LET  q(l,n)  =  INT  (RND*19)+1 

46  LET  q(2.n)  =  INT  <RND*23)+1 

47  PRINT  AT  Q C  1 , n> , q (2, n) 5 "C" 

43  NEXT  n 

50  PRINT  AT  1,15!  INVERSE  1!  INK  2!"  N  " !  RT  21,15!"  S  “ifiT  3,0!"  "V”  *  "!0~ 

. . OT  11,31!"  " !  AT  10,  31:  "O" 

100  IF  bb=0  THEN  BEEP  3,3:  CLS  :  PRINT  OT  a,  b!  INK  6!  POPER  0!"3":  GC  TO  10 

102  IF  IN  31=32  CR  IN  31=255  THEN  INPUT  "Hvilken  retning  ?“!  LINE  r* 

103  LET  al =a 

104  LET  bl=b 

106  LET  r  =  IN  31 

107  IF  r=0  THEN  00  TO  106 

110  IF  r*="sO“  OR  r=10  THEN  LET  a=a+l!  LET  b=b+l 

120  IF  r*= "sv "  THEN  LET  a=a+l i  LET  b=b-l 

130  IF  r*="n0"  THEN  LET  a=a-i:  LET  b=b+l 

140  IF  rt="nv"  THEN  LET  a=a-l:  LET  b=b-l 

150  IF  r*=”n"  THEN  LET  a=a-l 

160  IF  r*="s"  THEN  LET  a=a+l 

170  IF  r*= “O"  THEN  LET  b=b+l 

ISO  IF  r*="v"  THEN  LET  b=b-l 

184  IF  ATTR  <a,b>=34  THEN  PRINT  OT  al,  bl!"  “ !  AT  a,  bi  INK  2!"B":  30  TO  1000 

185  PRINT  OT  al, bl!  INK  7i"  ■ 

190  PRINT  OT  a.bi  INK  7!  "B" 

193  IF  al=a  OND  bl=b  THEN  BEEP  .01,0:  GO  TO  100 

200  FOR  K  =  1  TO  ba 

201  IF  a ( 1 , k ) =0  THEN  NEXT  k :  GO  TO  310 

204  PRINT  OT  q(1,  k  )  ,  Q  (  2,  k  )  »  "  “ 

205  IF  a>a(l,k)  THEN  LET  q <  1,  k)  =q < i ,  k )  +  1 

206  IF  a<q<l,  k)  THEN  LET  q  <  1 ,  k  )  =q  C 1 ,  k) -1 

207  IF  b<q  (2,  k>  THEN  LET  a (2,  k )=q (2,  k)  — 1 

203  IF  b)  a  (2,  k )  THEN  LET  a<2,  k)=q  C2,  k) +1 

203  IF  q( 1 >  K ) =a  AND  a(2,  k)=b  THEN  GO  TO  1000 

210  IF  OTTR  (q<  1,  k) ,  q(2,  k) )  =34  THEN  FOR  n=l  TO  10:  BEEP  .1.0:  PRINT  OT  aCi.k), 
a  (2,  k)  S  "C" !  :  BEEP  .1,1:  PRINT  :CHR*  Si  INK  2i"fl":  NEXT  n:  LET  o=r+10:  PRINT  OT  O 
,0!  INK  2!  INVERSE  i  i P! " : Poi nts" , hi “ : K i -Sc“ :  LET  bb=bb-l:  LET  a(l,k)=0:  LET  q(2, 
k)=0 

29S  Ic  q(l,k)<>0  THEN  PRINT  OT  g ( 1 , k ) , c (2. k ) S “C" 

300  NEX”  k 
999  GO  TD  100 

1000  BEEP  1,-30:  PRINT  PT  I ,  Oi n i " i POI NT" 

1010  PRINT  "Du  DOEDE! !!!!:'!•“ 

1020  PRINT  hf,"  nar  rekorder,  med  "!h 

1030  IF  n < p  T HEN  PRINT  "Du  s , 03  rekorden”:  INPUT  "Skr.v  dit  navn"!nf  .ET  h=o: 
PRINT  BRIGHT  i  i " JUBI 1 1 1 1 1 1 1 “ 

1040  PRINT  hf"  er  nu  inr.enaver" 

1050  IF  INKEY*=“0"  THEN  CLS  :  30  ^0  3 

1060  »SI NT  OT  21, C!  PAPER  (RND*7>!  INK  9i”TRYX  PPO  "!  INVERSE  i ! "O" i  INVERSE  O!" 

FOR  AT  STfiRTE  IGEN" 

1070  30  TC  1050 

9900  POPER  4:  BORDER  4:  INK  O:  INVERSE  0:  OVER  O:  BRIGHT  0:  FlOSH  O:  CLS  :  FOR  n 
=65368  ’O  65338:  READ  a:  POKE  n,a:  NEXT  n 

3901  D070  4.13,  191, 252,  253,  .27,  55,  102,24,  24,  60,  126,  133,  60,  36.  .02,  1SS,  152,  152,  255 
,  24,  24,  36.  102,  102,  120,  63,  66,  66,  68,  120 

3302'  PRINT  TAB  14:  FLASH  i!"ZULU":  FLASH  O*  "I  dette  so,  l  er  du  en  opdage I sesrejt 
ende  "!  INK  7:"B"!  INK  O!”  -fra  Danmark, der  staarniidt  .  det  indre  Zimbabwe’s 
s raessteoper.  Rundt  om  saa  g raes-steppen  gror  der  kOdaeder.de  Planter  "!  INK  2 

""S"!  INK  O: ".der  ss.ser  mennesker  og  der  er  ogsaa  Zuluer  C, der  jagter  d,g  h 
€•  e  tider,  de  er  ud-  styret  med  kO  i  ler. Det  gaeider  nufor  d.g  at  lokke  zuluerne  , 
»lanterne  ved  at  aevaege  d.g  saadan  at  Planterne  er  ..ge  mellem  d.s  o 

s  zuluer., da  zuluer.  Ikke  kan  se  Planterne  gaar  han  her,  imod  d  g  og  ryger  .  m  an 
t,  f  *1  ■  " 

3903  PRINT  Du  styrer  manden  rundt  oaa  skaermen  ved  at  naar  ZX-eren  saO 

rser  'nviiker.  retn.r.g  ?'  svarer  du  med  n»  s>‘0>  />  nC,  nv,  sO  el 

er  sv  (nord, syd, Ost, vest, nordOst,  nordvest, sydOst, sydvest)  og 

manden  bevager  s.g  hen  »aa  det  Onskede  sted  (for  at  -waeipedem  der  ,kke  kan  nu 
ske  kompasset  i  hovedet  har  .eg  skrevet  dem  ude  .  s  i derne. , "ne . d  os  lykke"’, 
C.  B" 

3904  °RINT  OT  21,0!  POPER  <RND*7):  INK  0!"Tryk  »aa  en  tast  for  at  starte" 

3397  IF  INKIYS=" ”  “HEN  GO  “0  3904 

99SS  RJN 

9399  SOVE  "ZULU’ er"  .INI  9300:  GO  r0  9999 


^3 


f  % 


w 

W  s 


48  Soft  Special 


I  dette  spil  til  16/48K  Spectrum, 
skal  du  lokke  nogle  blinde 
udyr  ned  i  et  krater,  hvor  de 
vil  omkomme. 

Men  pas  på,  tor  deres  lugte¬ 
sans  er  meget  god,  og  kan 
betyde  døden  tor  dig. 
Programmet  er  i  øvrigt  selvfor¬ 
klarende.  □ 


1 

1 

1  | 

1  | 

1  1 

1  1 

3,75kr. 

7,50kr. 

11,25  kr. 

15,00kr. 

18,75  kr. 

22,50 

1 

Supertips 


■  Skal  man  lave  reklame  for 
sit  tipsprogram,  er  det  bedste 
nok  at  fremvise  håndfaste  re¬ 
sultater,  Og  jeg  har  faktisk 
vundet  en  1 2  'er  ved  hjælp  af 
programmet! 


Inden  du  starter  programmet, 
skal  du  først  finde  de  ti  største 
dagblades  prognoser,  for  de 
tastes  ind  i  programmets  start . 
Held  og  lykkelD 

Hans-Erik  Larsen 


1 


1  SOUND  10.  10000 
5  BEEP 
10  CLS 

20  PRINT  AT  3. 10! “t  i ps-prosram" ; 
AT  7.  2! "Onskerlduii nst  rukt ionerB, 
/n" 

30  IF  INKEY*=”J”  THEN  GOTO  900 
40  IF  INKEY*=”N”  THEN  GOTO  60 
50  GOTO  30 
60  CLS 

70  PRINT  Tackk«tio.|lKISIlEI 
6I7EI3I1  0" 

80  FOR  R=1  T013 

85  PRINT  fiT  A+l,0i "kampBno.  "iA 
90  DIM  KC3) 

100  FOR  B=1  T03 


320  NEXT  0 

325  PRINT  AT  20,  Oi  " 

327  POKE  16418,0 

330  PRINT  RT  21, 21  "tastBc.  ifotfcn 
dnuBenBkupon” 

340  PRINT  RT  23,  6S  “tastBs.  Korfet 

OB” 

345  POKE  16418.2 
350  IF  INKEY»="S"  THEN  STOP 
360  IF  INKEY*="C“  THEN  GOTO  60 
370  GOTO  350 
700  SOUND  10,  10000 
710  PRINT  AT  19,0!  “dinefcddsEr*) 
!©v!  ise,  BS  i  rteJBsarruedeBi'ddsSs 
kalBvaereBl  isBlO.I" 


102  IF  B=  1  THEN  PRINT 

RT 

21, 6! 

"ind 

720 

PAUSE 

200 

tast  Bod  d  sB+  o  r  B"  1  “ " 

730 

PRINT 

RT  19,01” 

104  IF  6=2  THEN  PRINT 
t  ast  Budd  sBf  o  rB"  x  “ " 

RT 

21,6i 

"  i  nd 

106  IF  B=3  THEN  PRINT 

AT 

21. 6; 

"ind 

740 

GOTO  90 

tastBiddsBf  orB"2“ " 

800 

SOUND 

10,  10000 

110  INPUT  K(B) 

810 

PRINT 

RT  20,  Oi  "Bu  1  ov  1  i  9B^dds, 

120  IF  K(EO>  10  OR  K(B)  <0 

THEN 

GOT 

Bmax. 

BIO.  Bm  i  n.  BOB1' 

0  800 

820 

PAUSE 

200 

130  NEXT  B 

830 

PRINT 

fiT  20,0;" 

140K(1 >=K( 1 )+2 

■ 

150KI2) =K(2)+2 

840 

GOTO 

1  10 

160KI3) =K<  3)  +  2 

900 

CLS 

170  IF  K(1 )+K(2)+K(3) O  16  THEN 

G 

910 

PRINT 

"li nst  r ukt i onerBt •  i Bt i 

OTO  700 

180  FOR  B= 1 1  T029  STEP2 
190C=I NT  <  RND+16)  +  1 
210  IF  C<=K<1)  THEN  PRINT  RT  fl+l.B 
i  “  1" 

220  IF  OKU)  AND  C<=16-K<3>  THEN 
PRINT  AT  A+l, Bi  "X" 

230  IF  C)K(1)+K<2)  AND  C<  =  16  THEN 
PRINT  AT  A+l ,  Bi "2“ 

240  NEXT  B 
260  FOR  B=1  T06 

270  PRINT  RT  19,  1  i  "  indtastBoddsB-f 
orBnaesteBkamp" 

275  SOUND  10,  500 
280  PAUSE  3 

290  PRINT  RT  19,  1  i " INDTAST  ODDS  F 
OR  NAESTE  KAMP” 

295  SOUND  20,  500 
300  PAySE  2 
310  NEXT  B 
315  PRINT  AT  19,  1!" 


ps-sxstemB"  i  RT  3,0i”Bti  Ifcsttelsy 
stcmlMraevesId+rHKOliv  .  sersB" 
expert-t  i  ps"BsammenBi  asteBtesnf  o 
rdei  i  nser|paalhen-H|ho  I  dsv  i  sil .  ■ 
k .  los  B2.  ■■■HB  f.ets.  )I1 1  x 
1  x221xlB=B5/3/2.  —  .esBv  .  ifcaal 
konb  i  nereBd  i  sseBH"odds"k:<sli  n 
d  I  ae9seBme  i  I  emBOBBBBt  i  I  B20B»roce 
ntBchanc  o  rMBBBBBu  f  o  r  udset  eBo 

ver  raske  I  ser  Bi  BenBHnv  i  l  kenBsomB 
he  I  stBkampfce  I  vBomBB1'  odds "  =B1 0/0 
/OBel  ler  Ben  Bh  vi  I  kenBsomBne  I  stBko 
mbinat  i  onB+********" 

920  POKE  16418,0 

930  PRINT  RT  23,  2i"TAST  ENTER  NAF 
R  DU  ER  KLAR” 

940  POKE  16418,2 
950  IF  INKEY*<>”“  THEN  GOTO  60 
960  GOTO  950 
1000  SAVE  "TIPs" 

1010  RUN 
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■  De  onde  Aliens  skal  be¬ 
kæmpes  ved,  at  dine  for¬ 
svarsmissiler  skal  rammemå- 
let  alle  sammen,  da  forbiere 
giver  dig  minuspoints. 

Når  du  har  fået  tilstrækkeligt 
med  points,  bliver  du  forfrem¬ 
met  til  "Commander  of  star¬ 
fighters".  Du  får  tildelt  endnu 
et  rumskib,  som  du  skal  besty¬ 
re,  hvilket  er  meget  vanske¬ 
ligt.  □ 

Claus  Henrik  Bjerre 


t  REM  ********************** 

*CLAUS  HENRIK  BJERRE*  ******* 

ODDER**********  *************** 

*******  A=a  B=b  C=c  D=d 

2  GO  SUB  3000 

3  LET  w*="???" 

5  PAPER  0:  BORDER  li  INK  ?:  CLS  :  LET 
tyk=0 

8  LET  tyk=tyk  +  1  ;  LET  ned=JNT  CRND*160 
)i  LET  l&ng-INT  CRND*230J:  PLOT  lan»,ned 

9  IF  tyk >=100  THEN  GO  TO  1 1 

10  GO  TO  8 

11  PRINT  AT  0,0i" 

PRINT  #0;  INK  2 1 " 

12  PRINT  AT  1,0;  OUER  li  INK  4;" 

13  PRINT  AT  2,5;  BRIGHT  1;  INK  6;"d";A 
T  2, 7; "d"  ;AT  2,  9  ;"d”  ;  AT  2,ll;"d";AT  2,13 
;  "d ••  ;AT  2,15;'  d";AT  2,  17;  "d"  ;AT  2, 13 ; "d •• 
;AT  2,21  ;  "d "  ;AT  2,23;  d" 

14  FOR  1=3  TO  21  :  PRINT  AT  1,28;  INK  4 
i"  NEXT  I 

20  LET  escape  =0 :  LET  h=21 :  LET  0  =  1:  LE 
T  esape=0:  LET  a=lø:  LET  1=3:  LET  J=-lø: 
LET  b=-l  :  LET  s=0:  LET  ty=5:  LET  a$="  a 
"  :  LET  b*="  a" 

49  LET  e=INT  CRND*I3+5):  LET  y=INT  CRN 
D*13+5) 


99  PRINT  AT  21 ,a;"  bb  " 

100  LET  a=a+C 1NKEY*="8"  AND  a<221-CINKE 
Y*="7"  AND  a>41 

101  BEEP  .002,5 

107  LET  j=j  +  1 

108  IF  J>=26  THEN  PRINT  AT  y,26;"  ": 

LET  escape=esape  +  l  :  LET  j  =  1 :  GO  TO  4600 


109  PRINT  AT  y,j;  INK  6;a$ 

110  PRINT  AT  c , b ;  INK  6;b$:  INK  7 

111  LET  b=b *1 :  IF  b=26  THEN  PRINT  AT  c 

,26;"  ":  LET  b=-l :  LET  escape=escape+l : 

GO  TO  4600 

112  LET  ty=ty-l 

113  IF  Y=C  THEN  LET  Y=Y+1 

115  IF  1=0  THEN  GO  TO  6000 

116  IF  A$="  a  "  ANO  S>=300  THEN  GO  SUB 
3400 

117  IF  h=3  THEN  FOR  (=3  TO  21:  PRINT  A 


T  1,29;"  ":  BEEP  .  1 , *  :  NEXT  (:  LET  h=2 

1 :  GO  SUB  5200 

120  IF  1NKEY*="0"  AND  ty<=0  THEN  GO  TO 
1100 

144  IF  s>=hs  THEN  LET  hs=s 

180  IF  $>=300  AND  0=25  THEN  GO  TO  3000 

190  IF  s >=300  AND  0=75  THEN  GO  TO  4000 

200  IF  o=løø  THEN  GO  TO  4000 

201  IF  o=50  THEN  GO  TO  3000 


999  LET  o=o*l 


1000  GO  TO  50 

liøø  PRINT  AT  21, a;"  bb  ":  LET  e=l :  INK 
6:  PLOT  a*8+12, 9 :  DRAW  0,135:  PLOT  a*8*2 
ø,9:  DRAW  0,135::  BEEP  .01,20:  BEEP  .01, 
40:  PRINT  AT  c,b  ;b* 

1101  LET  ty =5 

1102  IF  a=b  OR  a*l=b  OR  a=J  OR  a*l=j  AND 
e=l  THEN  GO  SUB  2200 

1103  PLOT  ODER  lia*8*12,9:  ORAU  OUER  1 
; 0 , 135:  LET  e=0:  PLOT  OUER  l;a*8*2ø,9: 
DRAW  OUER  l;ø, 135 

1105  INK  7 
2000  GO  TO  50 

2200  IF  a=b  OR  a+]=b  THEN  PRINT  AT  c,b; 

INK  5;”  *":  LET  b=-l :  LET  $=$+10:  PRINT 
AT  c,0;“  ' :  I F 

S>=300  THEN  LET  $=$+10 

2201  IF  a=j  OR  a+l=j  THEN  PRINT  AT  y,j; 
"  *":  LET  $=$+10:  LET  J=0:  PRINT  AT  y,ø; 

":  IF  $>=300  THEN 


LET  $=$+10 

2202  FOR  1=1  TO  10:  BORDER  1:  BORDER  2: 
BORDER  5:  BORDER  0:  BORDER  4:  BORDER  3: 
BEEP  .01,5:  BORDER  6:  NEXT  C  BORDER  li 
BEEP  .1,10 

2208  PLOT  a*8  +  12, 9 :  DRAW  0,135:  LET  e=ø: 
PLOT  a*8+20, 9 :  ORAU  0,135 

2209  PRINT  AT  0,0; " SCORE  =  "  J,s  ! AT  0,  11  ;  ’L I 
UES=";l;AT  0,20;"HI  =  "  ;hs  ;"  ";w$ 

2210  RETURN 

3000  PRINT  AT  21, a;"  bb  ":  FOR  9=3  TO  21 
:  print  at  9,5;"!";at  9,9;"!";at  9,13;'  ; 


" ;at  9,17;“:";at  9,21;"!":  next  9 
3001  FOR  9=3  TO  21:  PRINT  AT  9,5;"  " ;AT 
9,9;"  "  ;AT  9,13;"  ";AT  9,17;"  " ;AT  9,21; 


" :  NEXT  9 :  LET  o=o+l 


3007  IF  5=a+l  OR  9=a+l  OR  13=a+l  OR  17=a 
+1  OR  21=a+l  THEN  GO  SUB  5000 

3008  IF  5=a+2  OR  9=a+2  OR  13=a+2  OR  17=a 
+2  OR  21=a+2  THEN  GO  SUB  5000 


3100  GO  TO  50 

3400  FOR  (=0  TO  3:  BEEP  .1,10:  BEEP  .1,1 
0:  BEEP  .1,10:  BEEP  .1,0:  NEXT  I 
3410  LET  a*="  c  ":  LET  b*  =  "  c":  LET  $=$+ 
10:  LET  1=1+1 
3500  RETURN 

4000  PRINT  AT  21, ai"  bb  “:  EOR  9=3  TO  21 
:  PRINT  AT  9,7;”!";AT  9  .  1  1  i  ’  '.  "  !  <=>  T  9,15;' 
: ”  ;AT  9,19;"!";AT  9,23;";":  NEXT  9:  IF  o 
>=100  THEN  LET  0=0 

4003  FOR  9=3  TO  21:  PRINT  AT  9,7;"  " JAT 
9,11;"  "  ;at  9,15;"  1  ;at  9,19;"  "  ;at  9,2 
3j"  '  :  NEXT  9  =  LET  0=0 

4007  IF  7=a+ 1  OR  ll=a+l  OR  15=a+l  OR  19= 


50  Soft  Special 


a+1  OR  23=a+ 1  THEN  GO  SUB  5000 

4008  IF  7=a+2  OR  ll=a+2  OR  15=a+2  OR  19= 

a+2  OR  23=a+2  THEN  GO  SUB  5000 

4600  FOR  1=0  TO  escape:  PRINT  OT  h , 29  i  B 

RIGHT  li  INK  5i  FLASH  lia*:  NEXT  ):  LET 

n=h-l :  PRINT  OT  2,28;  FLOSH  li  INK  5i"ni 

SS" 

4620  GO  TO  50 

4999  GO  TO  50 

5000  LET  1=1-1 J  PRINT  OT  21, a+1 i  FLOSH  1 
i'  bb" :  FOR  (  =  1  TO  5:  BEEP  .1,10:  BEEP  I 
.20:  BEEP  . 1,-10;  NEXT  I 

5001  PRINT  OT  0,0  i  SCORE  =  " is iOT  0,11;  LI 
OES="iliOT  0, 20  i "HI =" ;hs ;  ild*:  GO  TO  5 
0 

5200  LET  1  =  1-1  :  PRINT  OT  0, 11  i  L IUES=" i  I 
:  for  1=1  TO  5:  BEEP  .1,3:  BEEP  .1,-10: 
NEXT  I 
5300  RETURN 

6000  LET  y=y  +  l  :  PRINT  OT  y.jia*:  PRINT  O 
T  y— 1 , J  i  " 

6001  IF  y=2]  THEN  GO  TO  6003 

6002  GO  TO  6000 

6003  LET  c=c  + 1 :  PRINT  OT  c, bia*:  PRINT  O 
T  c-1 , b 

6004  IF  c  =21  THEN  GO  TO  6006 

6005  GO  TO  6003 

6099  FOR  E=1  TO  10:  PRINT  OT  10,10;  FLOS 
H  1  ; "GOME  OUER” : '  BEEP  .1,10:  BEEP  .1,-1 
0:  BEEP  .1,-20:  INK  ø:  INK  2:  NEXT  E 

6100  FOR  f  =0  TO  21:  PRINT  OUER  1 iOT  f,0 

j "  '  :  NEX 

T  ( 

6110  PRINT  OT  1 1 , 7  i  "OLIEN  FIK  DIG  OG" ;OT 
1 2, 7 J " I NUODEREDE  JORDEN" 

6111  IF  HS<=S  THEN  INPUT  "DU  LOUEDE  EN 
NY  HISCORE  "  ;UI* :  IF  LEN  U*>3  THEN  GO  TO 

6111 

6112  PRINT  OT  20,0  i”  ET  NYT  SPIL  ~J/N 
-  INFORtl.  M-" 

6120  IF  INKEY*="J"  OR  INKEY*="J"  THEN  G 
O  TO  5 

6121  IF  INKEY*="N"  OR  INKEY*=”n "  THEN  G 
O  TO  6130 

6122  IF  1NKEY*=" I "  OR  INKEY*=" i "  THEN  P 
OPER  0:  INK  6:  CLS  :  GO  SUB  9990:  GO  TO 
5 

6129  GO  TO  6120 

6130  STOP 
8888  GO  TO  50 

8999  STOP 

9000  FOR  n=0  TO  7:  REOD  a:  POKE  USR  "a"t 
n , a  :  NEXT  n 

9010  DOTO  12,30,45,30,54,99,54,20 
9020  FOR  n=0  TO  7:  REOD  a:  POKE  USR  "b"+ 
n , a :  NEXT  n 

9030  DOTO  8,8,42,42,28,62, 127*54 

9040  FOR  n=0  TO  7:  REOD  a=  POKE  USR  "c"+ 

n, a:  NEXT  n 

9050  DOTO  0,8,28,42,127,20,42,85 

9060  FOR  n=0  TO  7:  REOD  a:  POKE  USR  “d't 

o ,  a  :  NEXT  n 

9070  DOTA  255,255,127,62,28,8,8,0 

9989  LET  hs-0 

9990  PRINT  OT  3,1  i  l  DETTE  SPIL  SKOL  DU 
BEKOEtlPE  DE  ONDE  FLYDENDE  OLIEN  OG,  DU 

1100  IKKE  ROflME  UED  SIDEN  OF  FOR  SOOS  N 
OOR  DU  NAOR  ET  U1ST  POINT-TAL  FOOR  DU  ET 
EXTRO  RUnSKIB  HEN  SOO  BLIUER  DET  OGSOO 
SUOERE  OT  UNSLIPPE  HYPERSPOCE  L02ERNE 
GOD  FORNØJELSE 

TASTER : 
2  8 

0  <  >  A  " 

9991  PRINT  OT  21,10,  EN  TOST":  POR  K=1  T 
D  10:  BEEP  .  02, K :  BEEP  .05,30:  BEEP  .02, 
K:  BEEP  .05,28:  BEEP  .02,K:  BEEP  .05,29: 

BEEP  . 02, K :  BEEP  .05,27:  NEXT  K:  IF  INK 
EY4='  THEN  GO  TO  9991 

9997  RETURN 

9998  SOUE  ‘OUT  OLIENS'  LINE  9999 

9999  PRINT  OT  10,10;  PLOSH  1.  STOP  BOOND 
ET":  PAUSE  200:  CLS  RUN 


Electric 

Spectrum 


■  Dette  Spectrum-program 
udregner  Volt,  Ampére, 
Ohm,  Effekt,  hvis  du  bare  ind¬ 
taster  to  af  faktorerne.  Enten 
"E",  "I",  "R",  "P". 

De  ukendte  faktorer  indtastes 
som  0.  Et  effektfuldt  prog¬ 
ram  !□ 

Hugo  Pedersen 


1  REN  ''hp“ 

2  PRINT  RT  2ø,4,  0211 10  HUS 

O  PEOERSEN" 

3  PRINT  RT  1,2.:  "DETTE  PROORRN 

KRN  UDREGNE  ' VOLT '  ' RHPERE 

OHM’  EFFEKT '.DEN  ENESTE  BETT 
NGEL  SE  EP  .  AT  DU  KENDEP.  TO  AF  FR 
KT ORERNE  .  ” 

4-  PRINT  RT  6,ø;  “DU  INDTASTER 
E  I  R'  P  OG  MASKINEN  UDRE 
GNER  DE  TO  UKENDTE  TAL  FOR  DIG.” 

5  FLASH  1:  INUERSE  1.  PRINT  A 
T  11,0; ”DE.  UKENDTE  SKAL  TASTES  I 
ND  SOM  ø”:  FLASH  O  INUERSE  © 

9  PAUSE  SØ© 
lø  CLS 

11  BORDER  4 

12  INK  3 

15  C  IRC LE  123,139,24 
20  PLOT  147,139 
3ø  DPAU  -47.0 
4©  PLOT  124,163 
50  DR AU  ø,-47 

70  INK  5:  PRINT  AT  3,14;”E":  P 
PINT  AT  3,16.  I  PRINT  AT  5,14, 
■R"  PRINT  AT  5 , 16; " P ” :  INK  0 

6©  INUERSE  1  PRINT  AT  0,3, “DE 
UBEKENDTE  KALDER  DU  ' O' ”  FLASH 
©  INUERSE  O 

90  INK  1:  PRINT  AT  16,1;”INDTR 

ST  ' E  '  " 

95  INK  2:  FLASH  1:  PRINT  AT  3, 
14, "E”  FLASH  ø  INK  1 
løø  INPUT  e 

101  PRINT  AT  3 , 14 ;  "E"  _  „  , 

140  PRINT  AT  16, 1, " INDTAST  I 
145  INK  2:  FLASH  1  PRINT  AT  3, 
16i” I"  FLASH  0  INK  1 

150  INPUT  i 

151  PPINT  AT  3, 16,” I” 

190  PRINT  AT  16, 1, “INDTAST  'R' 
195  INK  2:  FLASH  1  PRINT  AT  5, 
14; "R”  FLASH  0  INK  1 
2øø  INPUT  r 
201  PRINT  AT  S , 14 ; ”R” 

240  PRINT  AT  16 , 1; ” INDTAST  ' P ' 
245  INK  2:  FLASH  1  PRINT  AT  5, 
16,  “P”  FLASH  0  INK  1 

250  INPUT  R 

251  PPINT  AT  5,16, "P" 

252  INK  0 

255  PRINT  AT  16,1;“ 

256  PRINT  AT  lø,l;“ 

260  IF  e =0  AND  i =0  AND  r;0  AND 
P  >0  THEN  GO  TO  60©  ' 

270  IF  e  =0  AND  i  ;  ©  AND  r  ;0  Rwr> 
P«0  THEN  GO  TO  6S© 


260  ir  e  >0  AND  i  >©  AND  r  =0  AND 
P *0  THEN  GO  TO  700 
290  IF  e >0  AND  i =0  AND  r>0  AND 
p=ø  THEN  GO  TO  750 
300  IF  e  >ø  AND  i  =0  AND  r  =  0  AND 
P>0  THEN  GO  TO  600 
310  IF  e =ø  AND  i >0  AND  r *0  AND 
P>ø  THEN  GO  TO  85© 

51ø  PRINT  AT  18,4: e;”  U":  PRINT 
AT  19,4,  i.;-  A”  PRINT  AT  30.4;  r 
,  '•  OHM"  PRINT  AT  21. 4.  p."  U" 

6øø  LET  e=SOR  (  r *p >  LET  i  »SOP 
(p  /r  1 

65ø  LET  esisr:  LET  p=r*i+2 
7øø  LET  r  =e  /i  .  LET  p=e*i 
75ø  LET  ise/r:  LET  p=et2/f 
øøø  LET  i =p/e :  LET  r=et3/p 
350  LET  e=p,i  LET  f=p/it2 
855  PRINT  AT  18,4, e;“  v”:  PRINT 
AT  19,4, i,"  A"  PRINT  AT  20 . 4 ; r 
;  ”  OhfH":  PRINT  AT  21, 4,  p,  ”  W“  .  G 
O  TO  860 

360  IF  i < 1  THEN  GO  SUB  1000 
37©  IF  r  > løø©  AND  r  r løøøøø©  THE 
N  GO  SUB  lløø 

83ø  IF  r> løøøøøø  THEN  GO  SUB  12 
øø 

390  IF  p  MØØØ  AND  p  ( 1000000  THE 
N  GO  SUB  1300 

900  IF  p  > 1000000  THEN  GO  SUB  14 
00 

95©  GO  TO  150© 

løøø  LET  i  si  *1000  PRINT  AT  19,4 
,  i  ,  ro  n 
1025  RETURN 

lløø  LET  r  =r / 1000  PRINT  AT  20.4 
;  r  ,  ”  Kohin 
1175  RETURN 

12øø  LET  r=r /løøøøøø  PRINT  AT  2 
O  <4i.fi  "  Hohm 
1275  RETURN 

13øø  LET  p  =  p / 1000 :  PRINT  AT  21,4 
,  P  ,  ”  Kw  '* 

1375  RETURN 

1400  LET  p=p/ 1000000  PRINT  AT  2 
1 , 4 ; p ; ”  Mw 
1475  RETURN 

15øø  INK  3  FLASH  1:  PRINT  AT  1 
, 1 , " E ” , AT  19,1;” I”; AT  20.1;”R”, 

T  21 , 1, "P" :  FLASH  0 

151ø  PAUSE  900 

1512  INK  O 

1515  CLS 

152ø  GO  TO  10 

200©  INK  0:  BORDER  7 
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HCh 


invasion 


I  den  stjemeklare  nat  angri¬ 
bes  jorden  al  horder  al  edder¬ 
kopper.  Din  opgave  er  ai  sid 
angrebet  tilbage  ved  hjælp 
ai  en  laserkanon.  Edderkop¬ 
pen  der  rammes,  tvinges  til¬ 
bage,  men  angriber  straks 
igen.  Hver  edderkop,  du 
rammer  giver  10  points  pb 
scoringstavlen  grafisk  adap¬ 
ter  nødvendig  □ 

Er.k  Hougaæd  & 
Michael  Andersen 


10  '  *********##**#•#*■*■#*****■***■**##*#**#**##*****#****.*# 
20  '**  EDDERKOPPRENE  ANGRIBER  AF  ERIK  HOUGAARD  ** 

30  ’**  S<  MICHAEL  ANDERSEN  ** 

40  ’**  SKREVET  I  JANUAR  1985  ** 

50  ’ **  ** 

60  ’  **  TIL  IBM  PC  MED  BASICA  DG  GRAFIK  ADAPTER  ** 

70  * **  ** 

80  '  **  BRUG  <4>  S«  <6>  TIL  STYRE  KANONEN  MED  OG  <S>  ** 

90  ’**  FOR  AT  SKYDE  ** 

100  ’ **  ** 
110  ’**  TRYK  <NUML0CK>  FOR  DER  TRYKKES  <RUN>  ** 

120  ’  ****************  *■*********#*#*#**##*##■**#**.*«  ****** 
130  GOTO  210 

140  LOCATE  1,1  SPRINT  "SCORE: SCORE 

150  PLAY  "o2mbt 2001 1 >c< 1 5a >1 4dl 6cl lc<l 1 >c<l 5a>l 4e-l 5c< 1 31 


135  LOCATE  1,1 sPRINT  "SCORE s SCORE 
160  PLAY" 1 2>F < 1 3al 3q#b >1 4f 1 6el le< 

1  70  PLAY  "o2mbt  2001  1  >c<  1 5a  >1  4dl  6c  1  lc<  1  1  >c<  1 5g>l  4e»-l  5c<  1  3b-l  2al  1  >d<  15dl  3b-l  6q]  3f  1 
2e 

180  PLAY  "1  lT14ef  1  3-f  1  4el  1TT1  15L6AEt.2EL6FGL3B-L2AL6AGL2GL6AB->L3DL2CL6C<BL2BL6>CD 
L3FL2E 

190  PLAY "02 >L6EDL2DL6DCL2CT 1S0L 1C<L6A>L4DL6CL1 CC<L6G>E-L4C<B-L2A>L 1 DL6<DL.4B-L5GL 
3FL2EL2FL3FL.5EFL3FL4EL  1F 
200  END 
210  A=3 

220  PI=3. 141593: ’  TEGNE  SPRITES 
230  SCREEN  1 : KEY  OFFsCLS 
240  GOSUB  800 

250  CIRCLE(160, 100) ,2,2  r= 

260  CIRCLE< 160,87) .8,2  ■ 

270  LOCATE  11,1 sPRINT  " 

280  CIRCLE( 160, 93) ,9,2,3. 1415927#, . 1*3. 1 4 1 5927# , 5/ 1 3 

290  CIRCLE  ( 160, 103) ,7,2  lil 

300  CIRCLE  (160,95) ,4, 1, , ,9/6 
310  CIRCLE  (160,95) ,4, 1 ,,, 13/5 

320  LOCATE  14,10:PRINT  "  »  J 

330  DIM  UH (300) 

340  GET  ( 1 53 , 9 1 ) - ( 1 67 , 110), UH 
350  PUT  X 50, 50), UH 
360  GOSUB  710 

370  GOSUB  750  *= 

380  GOTO  670 
390  GOSUB  650 

400  DIM  A (39) : FOR  1=1  TO  39: A ( I ) =4: NEXT : Y=20: LI =3 
410  SCREEN  1 : KEY  OFFsCOLOR  0,6:’  TEGNE  SKÆRMBILLEDE 
420  LINE (O, 150) - (319, 150) , 2 
430  CLS: A*=CHR$ ( 1 ) : Z=1 : Q*=CHR* (127) 

440  FOR  1=180  TO  200  STEP  2: LINE  (O, 180) - (319, I ) , 1 : NEXT  : FOR  1=180  TO  200  STEP  2 
:LINE  (O, I)-(319, 180) , IsNEXT 
450  CIRCLE  (240,40) , 17, , 1.2*PI, PI/2. 4 
460  CIRCLE  (230,36) , 17, ,2. 9*PI/2, PI/4 
470  PA I NT (255, 40) 

480  DRAW  "bmO, 150r 10e3r30f 10r30el0r30F 10r50e30f 30r80D5BL50Pl , 3" 

490  LINE  (O, 180) -(319, 180) ,3 

500  FOR  L=0  TO  200: FD=INT (RND*31 9) : DF=INT (RND* 150) : PSET (FD, DF > : NEXT 
510  W I  NDON  SCREEN  ( 1 , 1 ) - (22, 23) : B0=0: DIM  S*(74) 

520  FOR  1=1  TO  21 : PUT (I, 4) , UH: NEXT 
530  FOR  1=1  TO  39: A(I) =4: NEXT: Y=20:LI=3 
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540 

550 


560 

570 


580 

590 

600 

610 

620 

630 


640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 


760 
770 
780 
790 
800 
8 1 0 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


PUT ( Y, 19), FL : '  SELVE  SPILLET 

F=INT (RND*21)+1: IF  A(F)+M>20  THEN  A (F ) =4 : PUT <F ,‘ A (F ) ) , UH. XOR: L I =L I - 1 : IF  LI=0 
THEN  900 

PUT  <F, A <F>  )  , UH, XOR: A (F) =A  <F ) +M: PUT (F,  A  (F ) ) ,UH, XOR 

M-M-*-.  002:  READ  S$  ( BO)  :  READ  S* < B0+ 1 ) : PLAY  S*(BO):PLAY  S*  <  B0+ 1  )  :  B0=B0+2:  IF  B0= 
74  THEN  PLAY"P20" : B0=0: RESI ORE 
IF  li >3  THEN  N=  1 . 4 

LOCATE  1, 1 :PRINTM SCORE: SCORE; "LIVES: ";LI 

IF  A (F >  >=  1 8+N  THEN  L I*LI-1 : A (F) *4: IF  LI -O  THEN  GOTO  900 

B*=INKEY*:  IF  Bt=,,4n  AND  Y>1  THEN  PUT  ( Y,  19)  ,  FL,  XOR:  Y=Y-1 : PUT  ( Y,  19)  , FL,  XOR 

IF  B**"6"  AND  Y<21  THEN  PUT ( Y, 19) , FL , XOR: Y*Y+1 : PUT < Y, 1 9) , FL, XOR 

IF  B*="S"  THEN  FOR  0=17  TO  A ( Y)  STEP  -1 : PUT ( Y, O) , SK, XOR: NEXT  : PUT ( Y. A < Y) ) , UH 

, XOR: PUT  ( Y, A (Y) ) , UHI , XOR: FOR  0=17  TO  A(Y>  STEP  -1 : PUT ( Y, 0> , SK, XOR: NEX T  :PUT( 

Y ,  A  <  Y) ) ,  UHI , XOR: A<Y) =4: PUT <Y, A(Y) t  ,  UH, XOR: SC0RE=SC0RE+ 1 0 

GOTO  550 

fi=  1.5 

RETURN 

FOR  1  =  1  TO  308  STEP  1 4: *  TEGNE  SPRITE 
PUT  (I,  100)  ,UH:IJ=U+1 
NEXT  : PRINT  I 
GOTO  390 

LINE ( 10, 10) -( 10,20) , 2 
DIN  SK < 100) 

GET  <3, 3) - < 1 1 , 18) , SK 
RETURN 

CLS: DRAW  "BM160, 100C3RDDFDFDDDDDFDDDDFFRFRRRRRRRRUUULRRL  UDDDDLLLLLL LLLLLLLLL 
LLLLI  LLl.LLl.  LLLLLl  L.L  I.  UUURLLRUDDDRRRRRRRRRRRRI  RRRRRRRRRRRl  LLLLLLLLLI 

LLLLL.DDDLURRDUUULLLLLLURRRRRRRRRRLLLLLLLLLLLEUUUUEUUUUEUUEUURRUUUUDDDDDLBDF3 

DIN  FL (400) 

GET  (152, 95) -(165, 1 11) ,FL 

PU1  <100, 100), FL 

RETURN 

CIRCLE  < 160, 100)  ,2,2 

CIRCLE  (160,96) ,7,2, 3. 1415927#. .2*3.  1415927# 

CIRCLE  <160,95) ,4, 1, , ,9/6 
CIRCLE  (160,95) ,4, 1 ,,, 15/5 
LOCATE  14, 10: PRINT  " 

DIN  UHI (300) 

GET  ( 153,91 )-( 167, 1 10) , UHI 

PUT  (50, 50), UHI 

CLS 

RETURN: *  SLUT  SPIL 

FOR  1=1  TO  23: LOCATE  I, I: PRINT  "GANE  OVER . " :NEXT 

FOR  1  =  1  TO  300: N“INT <RND*21 ) +1 : M«INT (RND* 1  8)  +  i  : PUT (N, N> , UH: NEXT 
GOTO  140 

DATA  mb ,  o5, 1 255,  1  3,  c ,  L4 ,  g ,  16,  f#,  13,g,F>12,ct.  1  3,  d,  L4,  a,  16. o#.  I  3,  a,  1  2,  g,  1  .«  . 

1  4ql 6, -f#13gf  ,  12d,  1 3,»,  14b,  16*#,  1 3b,  1 2  «  C, 13, *,14,  (  , L6,B,I  .  ,B,  #,t  5, 

F,  L4 ,  B,  L6,  Å,L3,B,A,L2,E,  L3,  D,  E,  F, G,  L6,  EFG,  L 3A.  L6,  GI  .1.  .  D,  E,  L6, FL3G.  t.  2.  C 


LYT  TIL 
DATAVOICE 


Hver  lørdag  kl. 
17-18  på  FM 
102,8  MHz  i 
Storkøbenhavn 

Danmarks 

hotteste 

dataradio 


Produceres  i  samarbejde 
mellem  The  Voice  og 
månedsbladet  "Alt  om  Data” 


Vigtigt  ti 

■  Vi  lår  olte  henvendelser  Ira 
læsere,  der  ikke  kan  tyde  de 
inverse  tegn  på  Commodore 
programmer. 

I  de  fleste  tilfælde  bmges  dis¬ 
se  tegn  udelukkende  til  at  far¬ 
ve  teksten  eller  printe  den 

I  næste  nummer  at  ’  ’Sott’  vil  samtlige  Commodore  64  ud- 
listninger  være  torsynet  med  informationer  i  stedet  tor  et  in¬ 
verse  tegn. 


pænere  ud  på  skærmen.  De 
kan  derfor  olte  undværes,  da 
de  ikke  betyder  noget  for  sel¬ 
ve  programmets  kørsel. 
Bemærk  dog,  at  tegnene  in¬ 
verse  hjerter  og  inverse  S  skal 
bmges  altid. □ 


B  MM«  CURSOR  NED” 

□  rm  cursor  op- 
a  aaa  cursor  hojre 

II  MM  CURSOR  VENSTRE 
■  ■■■  CTRL  1 
3  333  CTRL  2 

s  atasa  ctrl  3 

k.  kkk  CTRL  4 


»  IH  CTRL  5 
U  UHU  CTRL  6 

a  aaa  ctrl  ? 
n  im  ctrl  s 
3  aaa  ctrl  s 
■  —  CTRL  O" 

□  LEU  COMMODORE  1 
R  MM  COMMODORE  2 


O  OBO  COMMODORE  3 
B  WHB  COMMODORE  4 

y  COMMODORE  5 

■!  Hil  COMMODORE  6 
U  COMMODORE  7 

!!  MS!  COMMODORE  8 
,J  .XX  J  CLR  TASTEN 
a  HOME  TASTEN 

II  MM  INST  TASTEN 


■  mm  f  i 

5  sa  F3 

k  mm  F4 

■  INI  F5 

■I  MM  F7 

■  ■■■  F8 


Her  på  "SOFT"  og  " Alt  om 
Data”  søger  vi  hele  tiden  et¬ 
ter  nye  og  spændende  pro¬ 
grammer  til  alle  gængse 
computertyper.  Lige  ira  små 
smarte  rutiner,  over  spil  til 
seriøse  brugerprogrammer. 
Alle  offentliggjorte  program¬ 
mer  belønnes  med  op  til 
1000  skattefri  kroner,  der  ud¬ 
betales  kort  etter  at  bladet  er 
udkommet. 

Indsend  dit/dine  program¬ 
mer  på  kassettebånd,  di¬ 
skette  eller  mikrodrlve  og 
vedlæg  beskrivelse  og  geme 
ud  listning.  Programmer 

uden  medsendt  lagermedie 
kan  ikke  bearbejdes  af  re¬ 
daktion  og  får  derfor  ikke 
chance  for  at  komme  i  bla¬ 
det. 

Af  praktiske  grunde  beder  vi 
om,  at  du  vedlægger  en 
frankeret  returkuvert  med  ty- 
dellg  adresseangivelse. 
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■  Dit  rumskib  løber  løbsk.  Du 
kan  ikke  standse  det.  men  du 
må  undvige  stenspøgelserne 
så  længe  som  muligt.  Det  er 
essensen  i  dette  Spectrum  1 6K 
spil. 

Sværhedsgraden  stiger  auto¬ 
matisk  tor  hver  200  points.  Ret¬ 
ningerne  op,  ned.  venstre  og 
højre  styres  med  knapperne 
Q.  A.  KogL. 

Thomas  Strøe 

0>REM  PROGRAHriET  ER  LAGET  AF  THO 
MAS  STRØE  CHARLOTTENLUND 
2  GO  S'JB  6000 
1  1  LET  p=0 .  lET  a-30 
20  BORDER  0 •  PAPER  ø-  CLS 
30  FOR  n  =  l  10  o 

<»0  PRINT  INK  4, AT  (RNO*  1  71  +  1  ,  f  RND*27) 
-i  i 

60  NEXT  n 

60  FOR  n  =0  TO  31:  PRINT  INK  6;AT  ],n; 

q":  PRINT  INK  6;AT  21,n|"q":  NEXT  n 

70  FOR  r - 1  TO  21:  PRINT  INK  6;AT  n,0; 

q":  PRINT  INK  6;AT  n,31;'q":  NEXT  n 

80  LET  x*=10:  lET  y=15 
83  PRINT  INK  3, AT  0,22;  Points  •  ;d 
85  PRINT  INK  2;AT  0,0;'hi9h:  ;ns 
90  PRINT  INK  2  ;AT  x,y;e" 

100  IF  INKET$=."q"  THEN  GO  TO  1000 

110  IF  lNKET*  =  "a"  THEN  GO  TO  I  100 

120  IF  I NKET$= " l "  THEN  GO  TO  1200 

130  IF  INKEY$="k "  THEN  GO  TO  1300 

140  PRINT  INK  0  ; AT  x ,  y  ; 

150  GO  TO  90 
1000  LET  p=ptl 
1005  PRINT  INK  3;AT  0,29lP 
1002  BEEP  .0002,30 

1008  IF  p  =200  OR  p  =400  THEN  GO  TO  3000 

1010  IF  lNKEYt="a"  thEN  GO  TO  liøø 

1020  IF  1NKEY$="I"  THEN  GO  TO  1200 

1030  IF  I NKE Y$="k "  THEN  GO  TO  1300 

1040  LET  x=x— I 

1045  IF  POINT  CCy*81*3,  173-Cx*8»  =  l  THEN 
GO  TO  2000 

1050  PRINT  INK  2 iAT  x,y;e” 

1060  GO  TO  1000 

1100  LET  p=p*l 

1105  PRINT  INK  3;AT  ø,29;p 

1102  BEEP  .0002,30 

1)08  IF  p  =  200  OR  p  =400  THEN  GO  TO  3000 
1)10  IF  INKET$  =  *  q“  THEN  GO  TO  1000 

1)20  IF  1NKET*="I"  THEN  GO  TO  1200 

1130  IF  INKEY*-"k"  THEN  GO  TO  1300 

1 140  LET  x  —  x  + 1 

1145  IF  POINT  C  C y*81 *3,  1 73-(x*8)  .1  =  1  THEN 
GO  TO  2000 

1150  PRINT  INK  2 ,AT  x,y 1  s" 

I  160  GO  TO  1 100 

1200  LET  p=p*1 

1205  PRINT  INK  3;AT  ø,29;p 

1202  BEEP  .0002, 30 

1208  IF  p  =200  OR  p  =400  THEN  GO  TO  3000 

1210  IF  INKEY*="q"  THEN  GO  TO  1000 

1220  IF  INKEY$  =  'a"  THEN  GO  TO  1 1  øø 

1230  IF  1 NKEYt= "k "  thEN  GO  TO  1300 

1240  LET  y=yt) 

1245  IF  POINT  C Cy*8 1*3,1 23- ( x*8 33  =  1  THEN 
GO  TO  2000 

1250  PRINT  INK  2  ;AT  x,y;"j" 

1260  GO  TO  1200 

1300  LET  p sp  +■  1 

1305  PRINT  INK  3  i  AT  0,29, o 

1302  BEEP  . 0002, 30 


1308  IF  p -200  OR  p  =  400  THEN  GO  TO  3000 

1310  IF  lNKEY$="a"  thEN  GO  TO  1100 

1320  IF  JNKEYS="q"  thEN  GO  TO  1000 

1330  IF  INKEY*="l"  thEN  GO  TO  1200 

1340  LET  y=y- 1 

1345  IF  POINT  C  C y*8) *3, 1 73- ( x*8 1 1- 1  THEN 
GO  TO  2000 

1350  PRINT  INK  2;AT  x,y;  h" 

1360  GO  TO  1300 

2000  PRINT  INK  5i  l-LASH  1  ;AT  20,ll;"GAn 
E  ODER" 

2100  FOR  n  =  1 5  TO  -30  STEI4  -3:  BEEP  .  l,n: 
NEXT  n 

2500  FOR  n  =  ]  TO  200:  NEXT  n 

2505  IF  INKEY$ O " "  THEN  GO  TO  2600 

2510  GO  TO  2505 

2600  IF  h s  <p  THEN  GO  TO  2700 


I  2610  CLS  :  INK  4 

12620  PRINT  "REKORDEN  ER  ":ns 

I  2630  PRINT  :  PRINT  "DEN  BLEO  SAT"!'  PR1N 

I  T  AT  3,0;  ”d  .  "  ja*  ;  al  ''  ;n* 

2640  PAUSE  0 
2650  GO  TO  11 
2700  CLS  :  INK  4 

2710  PRINT  "Tillykke.  Du  har  sat  ny  reko 
rd.  Indtast  uen l i 9s t  d.t  naun .  ' ,  '  I  NPUT 
n$ 

:2720  PRINT  :  PRINT  "Hu.lken  dato  ?” :  INP 
UT  ot 

2725  LET  hs=P 

2730  GO  TO  2610 

3000  CLS  :  lET  a=atl5 

3005  FOR  n=ø  TO  69:  BEEP  .0005,n:  NEXT  n 
3010  PRINT  "Godt  klaret.  Du  er  kominet  Ir 
em  til  naeste  trin. 

3020  FOR  n=0  TO  200:  NEXT  n:  GO  TO  20 
5090  STOP 
6000  FOR  J=0  TO  7 
.  6010  REAO  q  t 
6020  POKE  USR  " a " +  J , q 
6030  NEXT  j 

6040  DATA  BIN  00011000.BIN  001 11 100, BIN 

0101 1010, BIN  01111110, BIN  01111110, BIN  0 

1111110, BIN  11111111, BIN  10101001 

6050  FOR  J=0  TO  7 

6055  READ  q 

6060  POKE  USR  "q"+ j , q 

6070  NEXT  j 

6080  DATA  BIN  0001 1000, BIN  0001 1000, BIN 

00111)00, BIN  111)1111, BIN  111111T1.BIN  0 

0111100.BIN  000 1 1 000 , B I N  00011000 

6090  FOR  J=ø  TO  7 

6100  READ  q 

61 10  POKE  USR  "e'  *J,q 

6120  NEXT  j 

6130  DATA  BIN  0001 1000, 8JN  0001 1000, BIN 

0001)000, BIN  00111100.BIN  01111110, BIN  1 

1)11111, BIN  0001 1000, BIN  00011000 

6140  FOR  j-0  TO  7 

6150  READ  q 

6170  POKE  USR  "s " + j , q 

6180  NEXT  J 

.  6190  DATA  BIN  00011000.BIN  00011000.BIN 
i  1 1 1 1 1 1 1 1 , B I N  01111110, BIN  01111110, BIN  0 
01 11 100, BIN  øøøll øøø, B IN  000)1000 
6200  FOR  J=.ø  TO  7 
'6210  READ  q 
6220  POKE  USR  "h’  *j ,q 
6230  NEXT  j 

6240  DATA  BIN  ØØØØØIØØ.BIN  00001100.BIN 

00011100, BIN  llllllll.BIN  1 1 1 1 1 1 1 1 ,91N  ø 

001 1100, BIN  00001 100, BIN  00000100 

6250  FOR  j=-0  TO  7 

6260  REAO  q 

6270  POKE  USR  "j1  -j , q 

6280  NEXT  j 

6290  DATA  BIN  00100000.BIN  00110000.BIN 
00111000, BIN  llllllll.BIN  11111111, B]N  0 
011 1000.BIN  00] 1 0000 , B I N  00100000 
7000  RETURN 


Tegn  abonnement  på  SOFT. 


DtøTfij  store  program  blad 

JAKUAJI  IMS.  NR.  1. 


SOFT  Special  er  blevet  en  så  stor  succes  fra  starten,  at 
vi  har  besluttet  at  udgive  Danmarks  eneste  program¬ 
blad  hver  anden  måned 

Det  vil  sige.  at  SOFT  Special  udkommer  igen.  i  april, 
juni.  august,  oktober,  december  o  s  v 

* 

Hvis  du  vil  undgå,  at  SOFT  er  udsolgt  hos  din  blad¬ 
handler,  er  det  en  god  idé  at  tegne  abonnement  6 
numre  af  SOFT  Special  koster  153  kroner,  og  du  får 
bladene  portofrit  tilsendt.  Nåede  du  ikke  at  købe  før¬ 
ste  nummer  af  SOFT,  kan  du  bestille  bladet  på  forla¬ 
get  Prisen  er  kr.  27.85. 

★ 

Ring  og  bestil  abonnement  på  telefon  01-1 1  28  33  el¬ 
ler  indbetal  straks  kr .  153  på  postgirokonto  940  60  77 


Næste  nummer  al  SOFT  udkommer  den  20  Juni 


Vi  tester  de 
tunge  drenge 


"ny  elektronik-'  går  tæt  på  3  Hi-Fi 
kraftværker.  Hvilket  udgangstrin 
er  bedst  -  Quad  405  II,  Yamaha 
M-40  eller  Kenwood  M-l? 

Utradiotionelle  løsninger  kende¬ 
tegner  de  to  danske  højttalere  B&O 

Red  Line  40  og  Dali  6.  Lever  lyden 
mon  op  til  de  smarte  ideer? 

En  avanceret  mini-producer  får 
man  hjem.  når  man  køber  Sansuis 
AV- 77  audio/video  processor.  Vi 

kigger  det  lille  vidunder  efter  i  søm¬ 
mene.  og  det  kom  der  meget 
spændende  ud  af. 

Solen  kryber  op  ad  himlen,  og  sæ¬ 
sonen  nærmer  sig  tor  ’  ’  asfaltblæ¬ 
sere”  -  de  store  bærbare  kassette¬ 
radioer.  Vores  testhold  har  prøve¬ 
kørt  to  musikmaskiner  fra  Hitachi 
og  Sanyo. 

Irriterer  bilradioens  lydstyrke?  Så 
byg  "ny  elektroniks  smarte  auto¬ 


volumen-kontrol.  Den  justerer  selv 
anlæggets  lydstyrke  efter  støjnive¬ 
auet  i  kabinen. 

Tonekontroller  er  mange  ting .  En  af 
de  gode  er  den  paramentriske 
equalizer,  du  kan  bygge  efter  vo¬ 
res  forskrifter. 

Optiske  laserplader  er  også  på  vej 
ind  i  data .  Vi  beskriver  fremtidens 
Gigaplader  i  en  stor  reportage 

Spiller  du  musik  selv,  -  så  læs  vores 
test  af  Juno  106  synthesizeren. 

Megen  lyd  for  færre  penge. 

Masser  af  byg-selv  idder:  I/O  port 
til  Amstrad.  -  Mini  mikrofon  for¬ 
stærker  -  Lille  RIAA  Amp  -  kry¬ 
st  altest  er. 


Køb  ”ny  elektronik”  nummer  5 
hos  din  bladhandler  i  dag. 
Priskr.  21,85. 


Køb  det  nye  nummer  af 
Alt  om  Data  i  kiosken. 
Kun  kr.  21 ,85 


Du  kan  også  tegne  abonnement  på 
1 1  numre  for  kr.  218,50  på  telefon 
01-11  28  33. 


